X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=sitetool%2Fsitetool.lsp;h=22bccd90904fc6d9a80f2a807655a38ab7c28acf;hb=a6009c7c04d72e861737a3cdf1e327eada42dcb3;hp=19c3e808a3af072a3d5148a9ab077b0e5c7c9441;hpb=8e2e9a68244bac0e09a1e00e7997fa57f035b79f;p=rrq%2Fhourglass.git

diff --git a/sitetool/sitetool.lsp b/sitetool/sitetool.lsp
index 19c3e80..22bccd9 100644
--- a/sitetool/sitetool.lsp
+++ b/sitetool/sitetool.lsp
@@ -24,7 +24,8 @@
 
 (tk:load-tcl "sitetool.tcl")
 
-(while true
-  (tk:read-loop)
-  (println (eval-string (or (read-line) (exit))))
-  )
+(when nil
+  (while true
+    (tk:read-loop)
+    (println (eval-string (or (read-line) (exit))))
+    ))