X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Ftest%2Fhanoi.scheme;h=0180de1ec1ebb15f66f512b81fef51325620b103;hb=16061947d4376b41e596d87f97ec53ec29d17644;hp=c4ae7378117004c479ecf7f68b3d81140322fb78;hpb=39df849f0717d92a7d5bdf8aa5904bd4db1b467f;p=fw%2Faltos

diff --git a/src/scheme/test/hanoi.scheme b/src/scheme/test/hanoi.scheme
old mode 100644
new mode 100755
index c4ae7378..0180de1e
--- 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))