minor corrections to 4.ms; updated root-experr-compile-{0,2}-f-f-f

original commit: 86591f9dd45f36aa0e7d320d2286ffdb1b49076e
This commit is contained in:
dyb 2018-02-18 20:41:15 -05:00
parent 4991067ed7
commit 59c87c8e9f
3 changed files with 41 additions and 4 deletions

View File

@ -1425,9 +1425,9 @@
(procedure? (lambda (x) (fold-left x)))
(procedure? (lambda (x) (fold-left x y)))
(error? ; nonprocedure
(for-left 3 0 '()))
(fold-left 3 0 '()))
(error? ; nonprocedure
(for-left 3 0 '() '()))
(fold-left 3 0 '() '()))
(error? ; nonprocedure
(fold-left 3 0 '(a b c)))
(error? ; improper list
@ -1553,9 +1553,9 @@
(procedure? (lambda (x) (fold-right x)))
(procedure? (lambda (x) (fold-right x y)))
(error? ; nonprocedure
(for-right 3 0 '()))
(fold-right 3 0 '()))
(error? ; nonprocedure
(for-right 3 0 '() '()))
(fold-right 3 0 '() '()))
(error? ; nonprocedure
(fold-right 3 0 '(a b c)))
(error? ; improper list

View File

@ -269,6 +269,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat named-let: "incorrect argument count in call ((letrec ((...)) x) 3 4)".
4.mo:Expected error in mat map: "map: 3 is not a procedure".
4.mo:Expected error in mat map: "map: 3 is not a procedure".
4.mo:Expected error in mat map: "map: 3 is not a procedure".
4.mo:Expected error in mat map: "map: 3 is not a procedure".
4.mo:Expected error in mat map: "map: 7 is not a procedure".
4.mo:Expected error in mat map: "map: a is not a proper list".
4.mo:Expected error in mat map: "map: (a . b) is not a proper list".
@ -291,6 +293,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat map: "map: (a a a a a a ...) is circular".
4.mo:Expected error in mat map: "map: (a a a a a a ...) is circular".
4.mo:Expected error in mat fold-left: "fold-left: 3 is not a procedure".
4.mo:Expected error in mat fold-left: "fold-left: 3 is not a procedure".
4.mo:Expected error in mat fold-left: "fold-left: 3 is not a procedure".
4.mo:Expected error in mat fold-left: "fold-left: a is not a proper list".
4.mo:Expected error in mat fold-left: "fold-left: (a . b) is not a proper list".
4.mo:Expected error in mat fold-left: "fold-left: (a a a a a a ...) is circular".
@ -319,6 +323,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat fold-left: "fold-left: input list was altered during operation".
4.mo:Expected error in mat fold-left: "fold-left: input list was altered during operation".
4.mo:Expected error in mat fold-right: "fold-right: 3 is not a procedure".
4.mo:Expected error in mat fold-right: "fold-right: 3 is not a procedure".
4.mo:Expected error in mat fold-right: "fold-right: 3 is not a procedure".
4.mo:Expected error in mat fold-right: "fold-right: a is not a proper list".
4.mo:Expected error in mat fold-right: "fold-right: (a . b) is not a proper list".
4.mo:Expected error in mat fold-right: "fold-right: (a a a a a a ...) is circular".
@ -341,6 +347,9 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat fold-right: "fold-right: (a a a a a a ...) is circular".
4.mo:Expected error in mat for-each: "for-each: 3 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: 3 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: 3 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: 3 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: 7 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: a is not a proper list".
4.mo:Expected error in mat for-each: "for-each: (a . b) is not a proper list".
4.mo:Expected error in mat for-each: "for-each: (a a a a a a ...) is circular".
@ -374,6 +383,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat for-each: "for-each: input list was altered during operation".
4.mo:Expected error in mat for-each: "for-each: input list was altered during operation".
4.mo:Expected error in mat ormap: "ormap: 3 is not a procedure".
4.mo:Expected error in mat ormap: "ormap: 3 is not a procedure".
4.mo:Expected error in mat ormap: "ormap: 3 is not a procedure".
4.mo:Expected error in mat ormap: "ormap: a is not a proper list".
4.mo:Expected error in mat ormap: "ormap: (a . b) is not a proper list".
4.mo:Expected error in mat ormap: "ormap: (a a a a a a ...) is circular".
@ -407,6 +418,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat ormap: "ormap: input list was altered during operation".
4.mo:Expected error in mat ormap: "ormap: input list was altered during operation".
4.mo:Expected error in mat andmap: "andmap: 3 is not a procedure".
4.mo:Expected error in mat andmap: "andmap: 3 is not a procedure".
4.mo:Expected error in mat andmap: "andmap: 3 is not a procedure".
4.mo:Expected error in mat andmap: "andmap: a is not a proper list".
4.mo:Expected error in mat andmap: "andmap: (a . b) is not a proper list".
4.mo:Expected error in mat andmap: "andmap: (a a a a a a ...) is circular".
@ -440,6 +453,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat andmap: "andmap: input list was altered during operation".
4.mo:Expected error in mat andmap: "andmap: input list was altered during operation".
4.mo:Expected error in mat exists: "exists: 3 is not a procedure".
4.mo:Expected error in mat exists: "exists: 3 is not a procedure".
4.mo:Expected error in mat exists: "exists: 3 is not a procedure".
4.mo:Expected error in mat exists: "exists: a is not a proper list".
4.mo:Expected error in mat exists: "exists: (a . b) is not a proper list".
4.mo:Expected error in mat exists: "exists: (a a a a a a ...) is circular".
@ -473,6 +488,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat exists: "exists: input list was altered during operation".
4.mo:Expected error in mat exists: "exists: input list was altered during operation".
4.mo:Expected error in mat for-all: "for-all: 3 is not a procedure".
4.mo:Expected error in mat for-all: "for-all: 3 is not a procedure".
4.mo:Expected error in mat for-all: "for-all: 3 is not a procedure".
4.mo:Expected error in mat for-all: "for-all: a is not a proper list".
4.mo:Expected error in mat for-all: "for-all: (a . b) is not a proper list".
4.mo:Expected error in mat for-all: "for-all: (a a a a a a ...) is circular".

View File

@ -268,6 +268,10 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat r6rs:case: "invalid syntax (case)".
4.mo:Expected error in mat named-let: "incorrect argument count in call ((letrec ((...)) x) 3 4)".
4.mo:Expected error in mat map: "map: 3 is not a procedure".
4.mo:Expected error in mat map: "map: 3 is not a procedure".
4.mo:Expected error in mat map: "map: 3 is not a procedure".
4.mo:Expected error in mat map: "map: 3 is not a procedure".
4.mo:Expected error in mat map: "map: 7 is not a procedure".
4.mo:Expected error in mat map: "map: a is not a proper list".
4.mo:Expected error in mat map: "map: (a . b) is not a proper list".
4.mo:Expected error in mat map: "map: (a a a a a a ...) is circular".
@ -289,6 +293,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat map: "map: (a a a a a a ...) is circular".
4.mo:Expected error in mat map: "map: (a a a a a a ...) is circular".
4.mo:Expected error in mat fold-left: "fold-left: 3 is not a procedure".
4.mo:Expected error in mat fold-left: "fold-left: 3 is not a procedure".
4.mo:Expected error in mat fold-left: "fold-left: 3 is not a procedure".
4.mo:Expected error in mat fold-left: "fold-left: a is not a proper list".
4.mo:Expected error in mat fold-left: "fold-left: (a . b) is not a proper list".
4.mo:Expected error in mat fold-left: "fold-left: (a a a a a a ...) is circular".
@ -317,6 +323,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat fold-left: "fold-left: input list was altered during operation".
4.mo:Expected error in mat fold-left: "fold-left: input list was altered during operation".
4.mo:Expected error in mat fold-right: "fold-right: 3 is not a procedure".
4.mo:Expected error in mat fold-right: "fold-right: 3 is not a procedure".
4.mo:Expected error in mat fold-right: "fold-right: 3 is not a procedure".
4.mo:Expected error in mat fold-right: "fold-right: a is not a proper list".
4.mo:Expected error in mat fold-right: "fold-right: (a . b) is not a proper list".
4.mo:Expected error in mat fold-right: "fold-right: (a a a a a a ...) is circular".
@ -338,6 +346,10 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat fold-right: "fold-right: (a a a a a a ...) is circular".
4.mo:Expected error in mat fold-right: "fold-right: (a a a a a a ...) is circular".
4.mo:Expected error in mat for-each: "for-each: 3 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: 3 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: 3 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: 3 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: 7 is not a procedure".
4.mo:Expected error in mat for-each: "for-each: a is not a proper list".
4.mo:Expected error in mat for-each: "for-each: (a . b) is not a proper list".
4.mo:Expected error in mat for-each: "for-each: (a a a a a a ...) is circular".
@ -371,6 +383,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat for-each: "for-each: input list was altered during operation".
4.mo:Expected error in mat for-each: "for-each: input list was altered during operation".
4.mo:Expected error in mat ormap: "ormap: 3 is not a procedure".
4.mo:Expected error in mat ormap: "ormap: 3 is not a procedure".
4.mo:Expected error in mat ormap: "ormap: 3 is not a procedure".
4.mo:Expected error in mat ormap: "ormap: a is not a proper list".
4.mo:Expected error in mat ormap: "ormap: (a . b) is not a proper list".
4.mo:Expected error in mat ormap: "ormap: (a a a a a a ...) is circular".
@ -404,6 +418,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat ormap: "ormap: input list was altered during operation".
4.mo:Expected error in mat ormap: "ormap: input list was altered during operation".
4.mo:Expected error in mat andmap: "andmap: 3 is not a procedure".
4.mo:Expected error in mat andmap: "andmap: 3 is not a procedure".
4.mo:Expected error in mat andmap: "andmap: 3 is not a procedure".
4.mo:Expected error in mat andmap: "andmap: a is not a proper list".
4.mo:Expected error in mat andmap: "andmap: (a . b) is not a proper list".
4.mo:Expected error in mat andmap: "andmap: (a a a a a a ...) is circular".
@ -437,6 +453,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat andmap: "andmap: input list was altered during operation".
4.mo:Expected error in mat andmap: "andmap: input list was altered during operation".
4.mo:Expected error in mat exists: "exists: 3 is not a procedure".
4.mo:Expected error in mat exists: "exists: 3 is not a procedure".
4.mo:Expected error in mat exists: "exists: 3 is not a procedure".
4.mo:Expected error in mat exists: "exists: a is not a proper list".
4.mo:Expected error in mat exists: "exists: (a . b) is not a proper list".
4.mo:Expected error in mat exists: "exists: (a a a a a a ...) is circular".
@ -470,6 +488,8 @@ primvars.mo:Expected error in mat trace-output-port: "trace-output-port: #<input
4.mo:Expected error in mat exists: "exists: input list was altered during operation".
4.mo:Expected error in mat exists: "exists: input list was altered during operation".
4.mo:Expected error in mat for-all: "for-all: 3 is not a procedure".
4.mo:Expected error in mat for-all: "for-all: 3 is not a procedure".
4.mo:Expected error in mat for-all: "for-all: 3 is not a procedure".
4.mo:Expected error in mat for-all: "for-all: a is not a proper list".
4.mo:Expected error in mat for-all: "for-all: (a . b) is not a proper list".
4.mo:Expected error in mat for-all: "for-all: (a a a a a a ...) is circular".