~ chicken-core (chicken-5) 3a061a3b8daf1bff04f8795bb64739168fd8ead9

commit 3a061a3b8daf1bff04f8795bb64739168fd8ead9
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Sun Mar 22 10:54:45 2015 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sun Mar 22 10:54:45 2015 +1300

    Fix typo in variable name "user-suppplied-options"

diff --git a/batch-driver.scm b/batch-driver.scm
index f28d0ae1..10c91fe4 100644
--- a/batch-driver.scm
+++ b/batch-driver.scm
@@ -164,7 +164,7 @@
 
 ;;; Compile a complete source file:
 
-(define (compile-source-file filename user-suppplied-options . options)
+(define (compile-source-file filename user-supplied-options . options)
   (define (option-arg p)
     (if (null? (cdr p))
 	(quit-compiling "missing argument to `-~A' option" (car p))
@@ -793,7 +793,7 @@
 			     ;; Code generation
 			     (let ((out (if outfile (open-output-file outfile) (current-output-port))) )
 			       (dribble "generating `~A' ..." outfile)
-			       (generate-code literals lliterals lambda-table out filename user-suppplied-options dynamic db)
+			       (generate-code literals lliterals lambda-table out filename user-supplied-options dynamic db)
 			       (when outfile
 				 (close-output-port out)))
 			     (end-time "code generation")