diff options
Diffstat (limited to 'MLKReadEvalPrintLoop.m')
-rw-r--r-- | MLKReadEvalPrintLoop.m | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/MLKReadEvalPrintLoop.m b/MLKReadEvalPrintLoop.m index 8370f35..32cd5b1 100644 --- a/MLKReadEvalPrintLoop.m +++ b/MLKReadEvalPrintLoop.m @@ -101,6 +101,12 @@ static const char *prompt (EditLine *e) { printf ("This is Toilet Lisp, version 0.0.1.\n"); printf ("Please make yourself at home.\n"); + [[MLKDynamicContext currentContext] + setValue:[[MLKPackage findPackage:@"COMMON-LISP"] + intern:@"T"] + forSymbol:[[MLKPackage findPackage:@"TOILET-SYSTEM"] + intern:@"*SYSTEM-INITIALISED-P*"]]; + while (1) { const char *line; |