From 8318db755f22fb7918b880fe6697798e87aeb536 Mon Sep 17 00:00:00 2001 From: Jesse McDonald Date: Fri, 30 Apr 2010 22:15:12 -0500 Subject: [PATCH] Fix module syntax; should be (define ...), not (declare ...). --- libcompiler/reader.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/libcompiler/reader.scm b/libcompiler/reader.scm index 7b572a7..dbcad05 100644 --- a/libcompiler/reader.scm +++ b/libcompiler/reader.scm @@ -5,17 +5,17 @@ (provide read-module) (define (read-module [port (current-input-port)]) - `(lambda argv + `(lambda *argv* ,@(let iter ([forms (read-forms port)] [bindings '()]) (cond [(null? forms) (if (null? bindings) '() `(letrec ,bindings))] - [(simple-declare-form? (first forms)) + [(simple-define-form? (first forms)) (iter (cdr forms) (cons (cdr (first forms)) bindings))] - [(lambda-declare-form? (first forms)) + [(lambda-define-form? (first forms)) (iter (cdr forms) (cons `(,(first (second (first forms))) (lambda ,(cdr (second (first forms))) ,@(cddr (first forms)))) @@ -34,15 +34,15 @@ forms (iter (read port) (cons form forms)))))) -(define (simple-declare-form? form) +(define (simple-define-form? form) (and (pair? form) - (eq? (first form) 'declare) + (eq? (first form) 'define) (symbol? (second form)) (null? (cdddr form)))) -(define (lambda-declare-form? form) +(define (lambda-define-form? form) (and (pair? form) - (eq? (first form) 'declare) + (eq? (first form) 'define) (pair? (second form)) (symbol? (first (second form)))))