From 2ae0551f2c41537e9059d4c220192dff5251590f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 5 Feb 2017 20:50:22 -0800 Subject: [PATCH] Fix bug: root definition had wrong arguments. --- src/etc/ucd-converter.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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) -- 2.25.1