From 05f1dbf1e8564c316a4e0ed7146b4991162f8875 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 29 May 2011 00:58:58 +0000 Subject: * lisp/core.lisp.in (readExpr): New. * interp/as.boot: Replace READLINE with readLine. * interp/br-data.boot: Likewise. * interp/br-saturn.boot: Likewise. * interp/br-search.boot: Likewise. * interp/c-doc.boot: Likewise. * interp/cstream.boot: Likewise. * interp/g-error.boot: Likewise. * interp/ht-root.boot: Likewise. * interp/htcheck.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/msgdb.boot: Likewise. * interp/server.boot: Likewise. * interp/topics.boot: Likewise. * interp/compat.boot (READLINE): Remove. * interp/sys-macros.lisp (shoeConsole): Remove. (shoeInputFile): Likewise. (shoeread-line): Likewise. * boot/ast.boot (bfQ): %nothing only needs EQ. * algebra/files.spad.pamphlet (File) [read!, readIfCan!]: Use readExpr instead of VMREAD. Avoid PLACEP (TextFile) [readLine!, readLineIfCan!]: Likewise. --- src/interp/int-top.boot | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/interp/int-top.boot') diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 053b0115..cc7edb7b 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -106,13 +106,14 @@ intloop () == resetStackLimits() mode := CATCH($intTopLevel, SpadInterpretStream(1, nil, true)) -++ If the interpreter is spwan by the session manager, then +++ If the interpreter is spawn by the session manager, then ++ each successful connection also creates its own frame. ++ In particular, the only time we get to do anything in the `initial' -++ frame is when we get the first connection. In that case, we would +++ frame is when we get the first connection. In that situation, we would ++ be asked by the session manager to create a frame. The client is -++ not aware of that, It is therefore confusing to display a prompt, -++ because all this horse-threading happens behind the client's back. +++ not aware of that discrete request made by the session manager. +++ It is utterly confusing to display a prompt, because all this +++ horse-threading happens behind the client's back. printFirstPrompt?() == $interpreterFrameName ~= "initial" or getOptionValue '"role" ~= '"server" -- cgit v1.2.3