Ticket #1154: fix-bindings-for-compilation.diff

bindings.scm

@@ -496 +496 @@
 respectively.
 ]|#
 
-(define (destruc pat seq glen gref gtail)
+(define (destruc pat seq glen glen-sym gref gtail)
   (let loop ((pat pat) (seq seq) (n 0))
     (if (pair? pat)
       (let ((p (car pat)))
@@ -527 +527 @@
       (let ((tail `(,gtail ,seq ,n))
             (length-check (lambda (p s)
                             (if (list? p)
-                              `(= ,(glen p) (,glen ,s))
-                              `(<= ,(glen p) (,glen ,s))))))
+                              `(= ,(glen p) (,glen-sym ,s))
+                              `(<= ,(glen p) (,glen-sym ,s))))))
         (if (null? pat)
           (values '() '() `(,(length-check pat tail)))
           (if (symbol? pat)
@@ -540 +540 @@
 ]|#
 
 (define (list-destruc pat seq)
-  (destruc pat seq plength plist-ref plist-tail))
+  (destruc pat seq plength 'plength 'plist-ref 'plist-tail))
 
 (define (seq-destruc pat seq)
-  (destruc pat seq seq-length seq-ref seq-tail))
+  (destruc pat seq seq-length 'seq-length 'seq-ref 'seq-tail))
 
 #|[
 Four procedures which use the results of destruc