diff options
| author | Keith Packard <keithp@keithp.com> | 2018-01-06 17:29:10 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2018-01-06 17:31:43 -0800 |
| commit | 16061947d4376b41e596d87f97ec53ec29d17644 (patch) | |
| tree | f7ad08f8810b0ea78cf282048eacb46d441a2ee1 /src/scheme/test/hanoi.scheme | |
| parent | 39df849f0717d92a7d5bdf8aa5904bd4db1b467f (diff) | |
altos/scheme: Add ports. Split scheme code up.
And lots of other changes, including freeing unreferenced atoms.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/scheme/test/hanoi.scheme')
| -rwxr-xr-x[-rw-r--r--] | src/scheme/test/hanoi.scheme | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/scheme/test/hanoi.scheme b/src/scheme/test/hanoi.scheme index c4ae7378..0180de1e 100644..100755 --- a/src/scheme/test/hanoi.scheme +++ b/src/scheme/test/hanoi.scheme @@ -1,3 +1,4 @@ +#!/home/keithp/bin/ao-scheme ; ; Towers of Hanoi ; @@ -172,3 +173,5 @@ (_hanoi len 0 1 2) #t ) + +(unless (null? (command-line)) (hanoi 6)) |