*** empty log message ***

original commit: 0851bd79c755d9e009779a73fdbca056b442ea08
1998-02-26 20:11:21 +00:00 · 1998-02-26 20:11:21 +00:00 · 3dd3f3f872
commit 3dd3f3f872
parent 98a0228f4c
1 changed files with 3 additions and 1 deletions
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@ -322,5 +322,7 @@
 		 l)
 	     (error 'last-pair "argument not a pair")))))

-    (define cons? pair?)
+    (define cons? (lambda (x) (pair? x)))
+    (define empty? (lambda (x) (null? x)))
+    (define empty '())
  )