From 3dd3f3f872c9e9db319da065c920aefa108eec8f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 26 Feb 1998 20:11:21 +0000 Subject: [PATCH] *** empty log message *** original commit: 0851bd79c755d9e009779a73fdbca056b442ea08 --- collects/mzlib/functior.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss index 06dc72d..5b083b9 100644 --- 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 '()) )