author | Tony Garnock-Jones <tonyg@kcbbs.gen.nz> |
Tue, 22 May 2007 17:32:48 +1200 | |
changeset 116 | 631bc257c272 |
parent 115 | 1a8edb35fe26 |
child 117 | 5845103003aa |
etng-r1/main.scm | file | annotate | diff | comparison | revisions |
--- a/etng-r1/main.scm Tue May 22 17:32:34 2007 +1200 +++ b/etng-r1/main.scm Tue May 22 17:32:48 2007 +1200 @@ -88,7 +88,8 @@ qname-env)))) (define (etng-repl) - (let loop ((qname-env '())) + (let loop ((qname-env (extend-qname-env '() (string->symbol "") + "http://eighty-twenty.org/etng/r1/ns/etng"))) (display ">>ETNG>> ") (flush-output) (let ((results (stdin-results)))