things

dwaxemberg · Apr 30, 2013 · 73740d1 · 73740d1
1 parent 2dd6212
commit 73740d1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/interpreter.scm b/interpreter.scm
@@ -10,6 +10,7 @@
 ; main function, loops through the parse tree and calls functions to deal with the tuples.
 (define interpret
   (lambda (filename classname)
+    (if (string? classname) (set! classname (string->symbol classname)) 1)
     (fixBool (call/cc (lambda (return)
                         (interpret-statement-list (append (parser filename) (list (list 'funcall (list 'dot classname 'main)))) base_env))))))