From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Feb 2017 04:50:22 +0000 (-0800)
Subject: Fix bug: root definition had wrong arguments.
X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~172
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2ae0551f2c41537e9059d4c220192dff5251590f;p=mit-scheme.git

Fix bug: root definition had wrong arguments.
---

diff --git a/src/etc/ucd-converter.scm b/src/etc/ucd-converter.scm
index 0b78ae44c..3e3f5f9a6 100644
--- a/src/etc/ucd-converter.scm
+++ b/src/etc/ucd-converter.scm
@@ -582,24 +582,25 @@ USA.
     `(,(generate-entry-definition (symbol "ucd-" prop-name "-value")
 				  root-entry
 				  'sv
-				  table-name)
+				  table-name
+				  '(sv))
 
       ,@(map (lambda (name entry)
-	       (generate-entry-definition name entry 'sv 'table))
+	       (generate-entry-definition name entry 'sv 'table '(sv table)))
              entry-names
              table-entries)
 
       (define ,table-name)
       ,@(generate-table-initializers table-name entry-names))))
 
-(define (generate-entry-definition name entry sv-name table-name)
+(define (generate-entry-definition name entry sv-name table-name arg-names)
   (receive (offsets-expr body) (entry 'offsets sv-name table-name)
     (if offsets-expr
 	`(define-deferred ,name
 	   (let ((offsets ,offsets-expr))
-	     (named-lambda (,name ,sv-name ,table-name)
+	     (named-lambda (,name ,@arg-names)
 	       ,@body)))
-	`(define (,name ,sv-name ,table-name)
+	`(define (,name ,@arg-names)
 	   ,@body))))
 
 (define (generate-table-initializers table-name entries)