slib rev2 -1+, <?, ...

slib rev2 -1+, <?, ...

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 656 bytes --]

        * slib.scm (-1+, <?, <=?, =?, >?, >=?): Define as aliases for 1-, <,
        <=, =, >, >= respectively, required by slib 'rev2-procedures but no
        longer in the guile core.

I hope this is the right way to go about this.  Ie. if rev2-procedures
is in the features list then guile should be providing these defines.

I guess the alternative would be to drop it from the features list and
let slib make the necessary definitions.  That'd lose the guile core
defines of other things like append! and substring-fill! though.

In the 1.6 branch -1+ still exists, but the others don't, so this
would be a proposal to add them there similarly too.


[-- Attachment #2: slib.scm.ref2.diff --]
[-- Type: text/plain, Size: 943 bytes --]

--- slib.scm.~1.40.~	2003-04-07 08:05:00.000000000 +1000
+++ slib.scm	2003-12-17 17:24:26.000000000 +1000
@@ -21,7 +21,9 @@
 	   implementation-vicinity library-vicinity home-vicinity
 	   scheme-implementation-type scheme-implementation-version
 	   output-port-width output-port-height array-indexes
-	   make-random-state require slib:error slib:exit slib:warn slib:eval
+	   make-random-state
+	   -1+ <? <=? =? >? >=?
+	   require slib:error slib:exit slib:warn slib:eval
 	   defmacro:eval logical:logand logical:logior logical:logxor
 	   logical:lognot logical:ash logical:logcount logical:integer-length
 	   logical:bit-extract logical:integer-expt logical:ipow-by-squaring
@@ -234,6 +236,16 @@
 		  (set! seed (object->limited-string seed 50)))))
     (seed->random-state seed)))
 
+;;; {rev2-procedures}
+;;;
+
+(define -1+ 1-)
+(define <?  <)
+(define <=? <=)
+(define =?  =)
+(define >?  >)
+(define >=? >=)
+
 ;;; {Time}
 ;;;
 

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel

Re: slib rev2 -1+, <?, ...

[Marius Vollmer]

Kevin Ryde <user42@zip.com.au> writes:

> In the 1.6 branch -1+ still exists, but the others don't, so this
> would be a proposal to add them there similarly too.

Ok, please do!  Thanks!

-- 
GPG: D5D4E405 - 2F9B BCCC 8527 692A 04E3  331E FAF8 226A D5D4 E405


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel