9 lines
131 B
Smalltalk
9 lines
131 B
Smalltalk
|
"exec" "gst" "-f" "$0" "$0" "$@"
|
||
|
|
"exit"
|
||
|
|
|
||
|
|
| program |
|
||
|
|
|
||
|
|
program := Smalltalk getArgv: 1.
|
||
|
|
|
||
|
|
Transcript show: 'Program: ', program; cr.
|