MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-09-01 06:46:50 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add *argv*, *program-name*, etc. as replacements for old global variable names

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2025-05-04 03:43:30 +09:00
parent e9b766dcdf
commit ebdc6d7c20
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.go
+6 -3
View File
@@ -66,9 +66,12 @@ func RunString(script string, args []string) error {
executable = value executable = value
} }
lisp = lisp.Let(gmnlisp.Variables{ lisp = lisp.Let(gmnlisp.Variables{
gmnlisp.NewSymbol("ARGV"): gmnlisp.List(posixArgv...), gmnlisp.NewSymbol("ARGV"): gmnlisp.List(posixArgv...),
gmnlisp.NewSymbol("PROGRAM-NAME"): gmnlisp.String(args[0]), gmnlisp.NewSymbol("*argv*"): gmnlisp.List(posixArgv...),
gmnlisp.NewSymbol("EXECUTABLE-NAME"): gmnlisp.String(executable), 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()) ctx, cancel := context.WithCancel(context.Background())