From ebdc6d7c20fbf5adc324896f97b0a0948ecb1343 Mon Sep 17 00:00:00 2001 From: HAYAMA_Kaoru Date: Sun, 4 May 2025 02:58:56 +0900 Subject: [PATCH] Add `*argv*`, `*program-name*`, etc. as replacements for old global variable names --- main.go | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/main.go b/main.go index 45e7aa7..43b0c35 100644 --- a/main.go +++ b/main.go @@ -66,9 +66,12 @@ func RunString(script string, args []string) error { executable = value } lisp = lisp.Let(gmnlisp.Variables{ - gmnlisp.NewSymbol("ARGV"): gmnlisp.List(posixArgv...), - gmnlisp.NewSymbol("PROGRAM-NAME"): gmnlisp.String(args[0]), - gmnlisp.NewSymbol("EXECUTABLE-NAME"): gmnlisp.String(executable), + gmnlisp.NewSymbol("ARGV"): gmnlisp.List(posixArgv...), + gmnlisp.NewSymbol("*argv*"): gmnlisp.List(posixArgv...), + gmnlisp.NewSymbol("PROGRAM-NAME"): gmnlisp.String(args[0]), + gmnlisp.NewSymbol("*program-name*"): gmnlisp.String(args[0]), + gmnlisp.NewSymbol("EXECUTABLE-NAME"): gmnlisp.String(executable), + gmnlisp.NewSymbol("*executable-name*"): gmnlisp.String(executable), }) ctx, cancel := context.WithCancel(context.Background())