--- 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}
 ;;;