altos/scheme: Add ports. Split scheme code up.

[fw/altos] / src / scheme / test / hanoi.scheme

diff --git a/src/scheme/test/hanoi.scheme b/src/scheme/test/hanoi.scheme
old mode 100644 (file)
new mode 100755 (executable)
index c4ae737..0180de1
--- 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))