github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-15 04:16:21 +00:00
Code Issues Releases Wiki Activity

Fixed integration, which was broken by commented out macsyma

Browse Source 
function in JPG; SUPRV. Resolves #1573.
This commit is contained in:
Eric Swenson
2019-03-24 18:12:31 -07:00
parent ef6346abb1
commit 62fa30c531
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/jpg/suprv.642 → src/jpg/suprv.643
View File

@@ -2,6 +2,9 @@
; ** (c) Copyright 1976, 1983 Massachusetts Institute of Technology **
;; 2019-03-24 (ejs): Uncommented definition of NONVARCHK since without it
;; integration doesn't work.
(macsyma-module suprv)
;; #+MACLISP is ITS, Twenex, or Multics MacLisp.
@@ -1443,11 +1446,11 @@
(UNLESS (SYMBOLP X)
(MERROR "The argument to ~:M must be a symbolic name:~%~M" FN X)))
;(DEFMFUN NONVARCHK (X FN FLAG 2NDP)
; (WHEN (OR (MNUMP X) (INTEGERP X) (AND FLAG (ATOM X) (CONSTANT X))
; (AND (NOT (ATOM X)) (NOT (EQ (CAAR X) 'MQAPPLY)) (MOPP1 (CAAR X))))
; (MERROR "Non-variable~Margument to ~:M: ~M"
; (IF 2NDP '|& 2nd | '|& |) FN X)))
(DEFMFUN NONVARCHK (X FN FLAG 2NDP)
(WHEN (OR (MNUMP X) (INTEGERP X) (AND FLAG (ATOM X) (CONSTANT X))
(AND (NOT (ATOM X)) (NOT (EQ (CAAR X) 'MQAPPLY)) (MOPP1 (CAAR X))))
(MERROR "Non-variable~Margument to ~:M: ~M"
(IF 2NDP '|& 2nd | '|& |) FN X)))
(DEFMFUN PRINL (L) (DOLIST (X L) (PRINC X) (TYO #\SP)))
@@ -2751,4 +2754,4 @@ Do you want more?
(DECLARE (NOTYPE I N N1 N2 U1))
(EVAL-WHEN (EVAL COMPILE) (SETQ BASE OLD-BASE IBASE OLD-IBASE))