Fix *ARGV*

diff --git a/elisp/step6_file.el b/elisp/step6_file.el
index 172b562..ca15d0a 100644 (file)
--- a/elisp/step6_file.el
+++ b/elisp/step6_file.el
@@ -113,7 +113,7 @@
       ast))))
 
 (mal-env-set repl-env 'eval (mal-fn (let ((env repl-env)) (lambda (form) (EVAL form env)))))
-(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string argv)))
+(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string (cdr argv))))
 
 (defun PRINT (input)
   (pr-str input t))

diff --git a/elisp/step7_quote.el b/elisp/step7_quote.el
index a557cd1..2d497f0 100644 (file)
--- a/elisp/step7_quote.el
+++ b/elisp/step7_quote.el
@@ -146,7 +146,7 @@
       ast))))
 
 (mal-env-set repl-env 'eval (mal-fn (let ((env repl-env)) (lambda (form) (EVAL form env)))))
-(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string argv)))
+(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string (cdr argv))))
 
 (defun PRINT (input)
   (pr-str input t))

diff --git a/elisp/step8_macros.el b/elisp/step8_macros.el
index 1a32835..be75d85 100644 (file)
--- a/elisp/step8_macros.el
+++ b/elisp/step8_macros.el
@@ -176,7 +176,7 @@
       ast))))
 
 (mal-env-set repl-env 'eval (mal-fn (let ((env repl-env)) (lambda (form) (EVAL form env)))))
-(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string argv)))
+(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string (cdr argv))))
 
 (defun PRINT (input)
   (pr-str input t))

diff --git a/elisp/step9_try.el b/elisp/step9_try.el
index e1882de..06f2b74 100644 (file)
--- a/elisp/step9_try.el
+++ b/elisp/step9_try.el
@@ -192,7 +192,7 @@
       ast))))
 
 (mal-env-set repl-env 'eval (mal-fn (let ((env repl-env)) (lambda (form) (EVAL form env)))))
-(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string argv)))
+(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string (cdr argv))))
 
 (defun PRINT (input)
   (pr-str input t))

diff --git a/elisp/stepA_mal.el b/elisp/stepA_mal.el
index e6226be..ed8b41a 100644 (file)
--- a/elisp/stepA_mal.el
+++ b/elisp/stepA_mal.el
@@ -192,7 +192,7 @@
       ast))))
 
 (mal-env-set repl-env 'eval (mal-fn (let ((env repl-env)) (lambda (form) (EVAL form env)))))
-(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string argv)))
+(mal-env-set repl-env '*ARGV* (mal-list (mapcar 'mal-string (cdr argv))))
 (mal-env-set repl-env '*host-language* (mal-string "elisp"))
 
 (defun PRINT (input)