From 3b0857d6385f954d8073338e658d31aee6d23be7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 1 Aug 1997 13:52:59 +0000
Subject: [PATCH] release

original commit: 13213ccad64fd8afa157bc278a485f175de9e56c
---
 collects/mzlib/functior.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/mzlib/functior.ss b/collects/mzlib/functior.ss
index e0713b9..4749237 100644
--- a/collects/mzlib/functior.ss
+++ b/collects/mzlib/functior.ss
@@ -180,6 +180,8 @@
    (define seventh (polymorphic (compose fourth cdddr)))
    (define eighth (polymorphic (compose fourth cddddr)))
 
+   (define rest (polymorphic cdr))
+
    (define  build-string
      (lambda  (n  fcn)
        (unless  (and (integer? n) (exact? n) (>= n 0))