SF.net SVN: fricas:[2647] trunk

[wheb...@users.sourceforge.net]

Revision: 2647
http://sourceforge.net/p/fricas/code/2647
Author: whebisch
Date: 2020-03-10 18:52:20 +0000 (Tue, 10 Mar 2020)
Log Message:
-----------
Minor cleanups

Modified Paths:
--------------
trunk/ChangeLog
trunk/src/interp/int-top.boot
trunk/src/interp/nruncomp.boot
trunk/src/interp/nrunopt.boot
trunk/src/interp/spaderror.lisp

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog 2020-03-10 18:28:04 UTC (rev 2646)
+++ trunk/ChangeLog 2020-03-10 18:52:20 UTC (rev 2647)
@@ -1,5 +1,11 @@
2020-03-10 Waldek Hebisch <heb...@math.uni.wroc.pl>

+ * src/interp/int-top.boot, src/interp/nruncomp.boot,
+ src/interp/nrunopt.boot, src/interp/spaderror.lisp:
+ Minor cleanups
+
+2020-03-10 Waldek Hebisch <heb...@math.uni.wroc.pl>
+
* src/interp/g-util.boot, src/interp/macros.lisp,
src/interp/scwrap2.boot: Convert few function to Boot


Modified: trunk/src/interp/int-top.boot
===================================================================
--- trunk/src/interp/int-top.boot 2020-03-10 18:28:04 UTC (rev 2646)
+++ trunk/src/interp/int-top.boot 2020-03-10 18:52:20 UTC (rev 2647)
@@ -111,8 +111,8 @@
mode:='restart
while mode='restart repeat
resetStackLimits()
- CATCH($quitTag, CATCH('coerceFailure,
- mode:=CATCH('top_level, ncTopLevel())))
+ CATCH('coerceFailure,
+ mode:=CATCH('top_level, ncTopLevel()))

ncTopLevel() ==
-- Top-level read-parse-eval-print loop for the interpreter. Uses

Modified: trunk/src/interp/nruncomp.boot
===================================================================
--- trunk/src/interp/nruncomp.boot 2020-03-10 18:28:04 UTC (rev 2646)
+++ trunk/src/interp/nruncomp.boot 2020-03-10 18:52:20 UTC (rev 2647)
@@ -414,6 +414,7 @@
self_preds := get_self_preds(condCats)
self_preds := [cat for p in self_preds | p is ["QUOTE", cat]]
self_preds = [] => [condCats, false]
+ found_preds := []
false_preds := []
for c1 in self_preds repeat
op1 := opOf(c1)

Modified: trunk/src/interp/nrunopt.boot
===================================================================
--- trunk/src/interp/nrunopt.boot 2020-03-10 18:28:04 UTC (rev 2646)
+++ trunk/src/interp/nrunopt.boot 2020-03-10 18:52:20 UTC (rev 2647)
@@ -80,7 +80,7 @@
$byteVecAcc: local := nil
[nam,[addForm,:opList]] := u
--pp opList
- d := [[op, y] for [op, :items] in opList
+ d := [[op, y] for [op, :items] in opList
| y := makeCompactDirect1(op, items, et)]
$byteVec := [:$byteVec,:"append"/NREVERSE $byteVecAcc]
LIST2VEC ("append"/d)

Modified: trunk/src/interp/spaderror.lisp
===================================================================
--- trunk/src/interp/spaderror.lisp 2020-03-10 18:28:04 UTC (rev 2646)
+++ trunk/src/interp/spaderror.lisp 2020-03-10 18:52:20 UTC (rev 2647)
@@ -48,12 +48,8 @@
;;(defmacro |trappedSpadEval| (form) form) ;;nop for now

#+:GCL
-(setq |$quitTag| system::*quit-tag*)
-#+:GCL
(defun |resetStackLimits| () (system:reset-stack-limits))
#-:GCL
-(setq |$quitTag| (gensym))
-#-:GCL
(defun |resetStackLimits| () nil)

;; failed union branch -- value returned for numeric failure

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.