[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Axiom-developer] 20071225.01.sxw.patch
From: |
daly |
Subject: |
[Axiom-developer] 20071225.01.sxw.patch |
Date: |
Tue, 25 Dec 2007 18:50:14 -0600 |
The )fin command was broken because the throw was to the symbol top-level
when it should be to the symbol top_level. Steven Wilson submitted this
patch.
========================================================================
diff --git a/changelog b/changelog
index 001a035..01b91c6 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20071225 sxw src/interp/bookvol5 fix top-level typo
20071218 acr src/algebra/axserver.spad fix lastType output re: errors
20071217 tpd src/algebra/variable.spad ignore regression test gensym (7041)
20071217 tpd src/algebra/lodo.spad ignore regression test gensym (7042)
diff --git a/src/interp/bookvol5.pamphlet b/src/interp/bookvol5.pamphlet
index f2e570a..d3ebb9b 100644
--- a/src/interp/bookvol5.pamphlet
+++ b/src/interp/bookvol5.pamphlet
@@ -1006,7 +1006,7 @@ will end up as a recursive call to ourselves.
(|intloopReadConsole| "" n))
(setq pfx (|intloopPrefix?| ")fi" input))
(when (and pfx (or (string= pfx ")fi") (string= pfx ")fin")))
- (throw '|top-level| nil))
+ (throw '|top_level| nil))
(when (and (equal b "") (setq d (|intloopPrefix?| ")" input)))
(|setCurrentLine| d)
(setq c (|ncloopCommand| d n))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Axiom-developer] 20071225.01.sxw.patch,
daly <=