Merge branch 'master' into gcc-8
original commit: 3fe77b72d97829294f9df3d87deae4649812885c
This commit is contained in:
Andy Keep
GitHub
commit
b01e92fc4f
11
LOG
11
LOG
|
|
@ -933,5 +933,16 @@
|
|||
mats/Mf-t*, foreign.ms, foreign4.c
|
||||
- Don't install equates.h
|
||||
Mf-install.in, wininstall/*nt.wxs
|
||||
- Windows install now sets HeapSearchPath in the registry
|
||||
wininstall/product.wxs
|
||||
- Use Windows path separator character when finding boot files on Windows.
|
||||
scheme.c
|
||||
- Propagate enable-check-prelex-flags to separate-eval sub-process in tests.
|
||||
mats.ss
|
||||
- Reject attempts to visit libraries that compile-whole-program has rendered
|
||||
invisible due to libs-visible? flag.
|
||||
compile.ss, 7.ms, root-experr-compile-0-f-f-f, root-experr-compile-2-f-f-f,
|
||||
patch-compile-0-f-t-f, patch-compile-0-t-f-f, patch-interpret-0-f-f-f,
|
||||
patch-interpret-0-f-t-f, patch-interpret-3-f-f-f, patch-interpret-3-f-t-f
|
||||
- Double FMTBUFSIZE to fix compilation with gcc-8
|
||||
c/prim5.c
|
||||
|
|
@ -429,6 +429,7 @@ static const char *path_last(p) const char *p; {
|
|||
#define DEFAULT_HEAP_PATH "%x;%x\\..\\..\\boot\\%m"
|
||||
#endif
|
||||
#define SEARCHPATHSEP ';'
|
||||
#define PATHSEP '\\'
|
||||
|
||||
static char *get_defaultheapdirs() {
|
||||
char *result;
|
||||
|
|
@ -441,6 +442,7 @@ static char *get_defaultheapdirs() {
|
|||
}
|
||||
#else /* not WIN32: */
|
||||
#define SEARCHPATHSEP ':'
|
||||
#define PATHSEP '/'
|
||||
#ifndef DEFAULT_HEAP_PATH
|
||||
#define DEFAULT_HEAP_PATH "/usr/lib/csv%v/%m:/usr/local/lib/csv%v/%m"
|
||||
#endif
|
||||
|
|
@ -516,7 +518,7 @@ static IBOOL next_path(path, name, ext, sp, dsp) char *path; const char *name, *
|
|||
/* unless entry was null, append name and ext onto path and return true with
|
||||
* updated path, sp, and possibly dsp */
|
||||
if (s != *sp) {
|
||||
if (!DIRMARKERP(*(p - 1))) { setp('/'); }
|
||||
if (!DIRMARKERP(*(p - 1))) { setp(PATHSEP); }
|
||||
t = name;
|
||||
while (*t != 0) setp(*t++);
|
||||
t = ext;
|
||||
|
|
|
|||
|
|
@ -23,7 +23,7 @@ Section~\ref{SECTCOMPATEXTENDSYNTAX}
|
|||
describes \scheme{extend-syntax} macros.
|
||||
These features are supported directly by current versions of {\ChezScheme},
|
||||
but support may be dropped in future versions.
|
||||
New programs should use the standard mechanisms described in
|
||||
New programs should use the standard mechanisms described
|
||||
in \emph{The Scheme Programming Language, 4th Edition}~\cite{Dybvig:tspl4}
|
||||
instead.
|
||||
|
||||
|
|
|
|||
|
|
@ -287,7 +287,7 @@ The first form is identical to the Revised$^6$ Report \scheme{dynamic-wind}.
|
|||
When the optional \var{critical?} argument is present and non-false,
|
||||
the \var{in} thunk is invoked in a critical section along with the code
|
||||
that records that the body has been entered, and the \var{out} thunk is
|
||||
invoked in a critical section section along with the code that records
|
||||
invoked in a critical section along with the code that records
|
||||
that the body has been exited.
|
||||
Extreme caution must be taken with this form of \scheme{dynamic-wind},
|
||||
since an error or long-running computation can leave interrupts
|
||||
|
|
|
|||
|
|
@ -444,7 +444,7 @@ year = 1995}
|
|||
author = {Oscar Waddell and Dipanwita Sarkar and R. Kent Dybvig},
|
||||
title = {Fixing Letrec: A Faithful Yet Efficient Implementation of {Scheme}'s
|
||||
Recursive Binding Construct},
|
||||
journal = {Higher-order and and symbolic computation},
|
||||
journal = {Higher-order and symbolic computation},
|
||||
volume = 18,
|
||||
number = "3/4",
|
||||
pages = {299--326},
|
||||
|
|
|
|||
|
|
@ -120,7 +120,7 @@ Its default value is \scheme{100}.
|
|||
\endentryheader
|
||||
|
||||
The value of \scheme{ee-default-repeat} is a nonnegative fixnum
|
||||
value that determines the number of of times the next command is
|
||||
value that determines the number of times the next command is
|
||||
repeated after the \scheme{ee-command-repeat} editing command
|
||||
(bound to \scheme{Esc-^U} by default) is used and \emph{not}
|
||||
followed by a sequence of digits.
|
||||
|
|
|
|||
|
|
@ -270,7 +270,8 @@ collection, but adding the \scheme{__collect_safe} declaration avoids that
|
|||
problem:
|
||||
|
||||
\schemedisplay
|
||||
(define c-sleep (foreign-procedure __collect_safe "sleep" (unsigned) unsigned))
|
||||
(define c-sleep
|
||||
(foreign-procedure __collect_safe "sleep" (unsigned) unsigned))
|
||||
(c-sleep 10) \var{; sleeps for 10 seconds without blocking other threads}
|
||||
\endschemedisplay
|
||||
|
||||
|
|
@ -3485,7 +3486,7 @@ A thread created via the Scheme procedure \scheme{fork-thread} starts
|
|||
in the active state and need not be activated.
|
||||
Any thread that has been deactivated, and any
|
||||
thread created by some mechanism other than \scheme{fork-thread} must,
|
||||
however, be activated before before it can access Scheme data or execute
|
||||
however, be activated before it can access Scheme data or execute
|
||||
Scheme code. A foreign callable that is declared with \scheme{__collect_safe}
|
||||
can activate a calling thread.
|
||||
Otherwise, \scheme{Sactivate_thread} must be used to activate a thread.
|
||||
|
|
|
|||
|
|
@ -131,7 +131,7 @@ valid identifiers in {\ChezScheme}.
|
|||
Second, the single-character sequences \scheme{\schlbrace} and
|
||||
\scheme{\schrbrace} are identifiers.
|
||||
Third, identifiers containing arbitrary characters may be printed by
|
||||
escaping them them with \scheme{\} or with \scheme{|}.
|
||||
escaping them with \scheme{\} or with \scheme{|}.
|
||||
\scheme{\} is used to escape a single character (except 'x', since
|
||||
\scheme{\x} marks the start of a hex scalar value),
|
||||
whereas \scheme{|} is used
|
||||
|
|
@ -139,7 +139,7 @@ to escape the group of characters that follow it up through the
|
|||
matching \scheme{|}.
|
||||
For example, \scheme{\||\|} is an identifier with a two-character
|
||||
name consisting of the character \scheme{|} followed by the
|
||||
the character \scheme{\}, and \scheme{|hit me!|} is an identifier whose name
|
||||
character \scheme{\}, and \scheme{|hit me!|} is an identifier whose name
|
||||
contains a space.
|
||||
|
||||
In addition, gensyms (page~\ref{desc:gensym}) are printed with
|
||||
|
|
|
|||
|
|
@ -670,7 +670,7 @@ message.
|
|||
\endentryheader
|
||||
|
||||
\noindent
|
||||
When When \var{obj} is \scheme{#f}, the port's beginning-of-line (BOL)
|
||||
When \var{obj} is \scheme{#f}, the port's beginning-of-line (BOL)
|
||||
flag is cleared; otherwise, the port's BOL flag is set.
|
||||
|
||||
The BOL flag is consulted by \scheme{fresh-line}
|
||||
|
|
@ -2555,7 +2555,7 @@ objects \scheme{\var{obj} \dots}.
|
|||
Characters are copied from \var{format-string} to the output string from
|
||||
left to right, until \var{format-string} is exhausted.
|
||||
The format string may contain one or more \var{format directives}, which are
|
||||
multi-character sequences prefixed by a a tilde (~\scheme{~}~).
|
||||
multi-character sequences prefixed by a tilde (~\scheme{~}~).
|
||||
Each directive is replaced by some other text, often involving one or more
|
||||
of the \scheme{\var{obj} \dots} arguments, as determined by the semantics
|
||||
of the directive.
|
||||
|
|
|
|||
|
|
@ -1317,7 +1317,7 @@ be parsed as a number.
|
|||
|
||||
\item
|
||||
A symbol whose name contains arbitrary characters may be written by
|
||||
escaping them them with \scheme{\} or with \scheme{|}.
|
||||
escaping them with \scheme{\} or with \scheme{|}.
|
||||
\scheme{\} is used to escape a single character (except 'x', since
|
||||
\scheme{\x} marks the start of a hex scalar value),
|
||||
whereas \scheme{|} is used
|
||||
|
|
|
|||
|
|
@ -1835,7 +1835,7 @@ If instead this file were compiled, using \scheme{compile-file}, the
|
|||
compiler would arrange to define \scheme{mvlet} before continuing
|
||||
with the expansion and evaluation of the \scheme{mvlet} expression,
|
||||
but it would not arrange to define \scheme{nodups?}.
|
||||
Thus the expansion of the \scheme{mvlet} expression would fails.
|
||||
Thus the expansion of the \scheme{mvlet} expression would fail.
|
||||
|
||||
In this case it does not help to evaluate the syntactic extension alone.
|
||||
A solution in this case would be to move the definition of
|
||||
|
|
@ -2795,7 +2795,7 @@ or to the boolean value \scheme{#t}.
|
|||
The profile information can be dumped via:
|
||||
|
||||
\begin{description}
|
||||
\item[\scheme{profile-dump-html}]\index{\scheme{profile-dump=html}}
|
||||
\item[\scheme{profile-dump-html}]\index{\scheme{profile-dump-html}}
|
||||
in HTML format to allow the programmer to visualize how
|
||||
often each expression is executed using a color-coding system that
|
||||
makes it easy to spot ``hot spots,''
|
||||
|
|
@ -4362,7 +4362,7 @@ in bytes, including not only the bytes occupied for Scheme objects
|
|||
but also various forms of overhead, including fragmentation and
|
||||
reserved but not currently occupied memory, and is thus an accurate
|
||||
measure of the amount of heap memory currently reserved from the
|
||||
the operating system for the current process.
|
||||
operating system for the current process.
|
||||
|
||||
%----------------------------------------------------------------------------
|
||||
\entryheader
|
||||
|
|
|
|||
|
|
@ -1655,7 +1655,7 @@ The application installation script should install {\PetiteChezScheme}
|
|||
if not already installed on the target system.
|
||||
It should install the application boot file in the same directory as
|
||||
the {\PetiteChezScheme} boot file petite.boot is installed,
|
||||
and it should should install the application shared libraries, if any,
|
||||
and it should install the application shared libraries, if any,
|
||||
either in the same location or in a standard location for shared libraries
|
||||
on the target system.
|
||||
It should also create a link to or copy of the {\PetiteChezScheme}
|
||||
|
|
@ -1757,7 +1757,7 @@ parameter (Section~\ref{SECTUSEINTERACTION}).
|
|||
|
||||
Most of the options are described elsewhere in this chapter, and a few
|
||||
are self-explanatory.
|
||||
The remainder pertain the loading of boot files at system start-up
|
||||
The remainder pertain to the loading of boot files at system start-up
|
||||
time and are described below.
|
||||
|
||||
\index{boot files}%
|
||||
|
|
|
|||
201
mats/7.ms
201
mats/7.ms
|
|
@ -1614,6 +1614,13 @@ evaluating module init
|
|||
"testfile-wpo-prog")
|
||||
"()\n")
|
||||
|
||||
(equal?
|
||||
(separate-compile
|
||||
'(lambda (x)
|
||||
(compile-whole-program (format "~a.wpo" x) (format "~a-none.so" x) #f))
|
||||
"testfile-wpo-prog")
|
||||
"()\n")
|
||||
|
||||
(delete-file "testfile-wpo-lib.ss")
|
||||
(delete-file "testfile-wpo-lib.so")
|
||||
(delete-file "testfile-wpo-lib.wpo")
|
||||
|
|
@ -1622,6 +1629,9 @@ evaluating module init
|
|||
(separate-eval '(load-program "testfile-wpo-prog-all.so"))
|
||||
"3628800\n3628800\n")
|
||||
|
||||
(error?
|
||||
(separate-eval '(load-program "testfile-wpo-prog-none.so")))
|
||||
|
||||
(begin
|
||||
(with-output-to-file "testfile-wpo-a3.ss"
|
||||
(lambda ()
|
||||
|
|
@ -3180,6 +3190,197 @@ evaluating module init
|
|||
"(9 . 5)\n")
|
||||
)
|
||||
|
||||
(mat library-manager
|
||||
(begin
|
||||
(with-output-to-file "testfile-lm-a.ss"
|
||||
(lambda ()
|
||||
(pretty-print
|
||||
'(library (testfile-lm-a)
|
||||
(export ct-a rt-a)
|
||||
(import (scheme))
|
||||
(meta define ct-a (begin (display "ct-a rhs\n") 123))
|
||||
(define rt-a (begin (display "rt-a rhs\n") 456)))))
|
||||
'replace)
|
||||
(with-output-to-file "testfile-lm-b.ss"
|
||||
(lambda ()
|
||||
(pretty-print
|
||||
'(library (testfile-lm-b)
|
||||
(export b)
|
||||
(import (scheme) (testfile-lm-a))
|
||||
(define-syntax (use-ct-val x) (if (odd? ct-a) #'"odd" #'"even"))
|
||||
(define b use-ct-val))))
|
||||
'replace)
|
||||
(with-output-to-file "testfile-lm-c.ss"
|
||||
(lambda ()
|
||||
(pretty-print
|
||||
'(library (testfile-lm-c)
|
||||
(export c)
|
||||
(import (scheme) (testfile-lm-a))
|
||||
(define use-rt-val rt-a)
|
||||
(define c use-rt-val))))
|
||||
'replace)
|
||||
(with-output-to-file "testfile-lm-combined.ss"
|
||||
(lambda ()
|
||||
(pretty-print
|
||||
'(begin
|
||||
(include "testfile-lm-a.ss")
|
||||
(include "testfile-lm-b.ss")
|
||||
(include "testfile-lm-c.ss"))))
|
||||
'replace)
|
||||
(with-output-to-file "testfile-lm-use-b.ss"
|
||||
(lambda ()
|
||||
(pretty-print
|
||||
'(library (testfile-lm-use-b)
|
||||
(export x)
|
||||
(import (scheme) (testfile-lm-b))
|
||||
(meta define x b))))
|
||||
'replace)
|
||||
(with-output-to-file "testfile-lm-use-c.ss"
|
||||
(lambda ()
|
||||
(pretty-print
|
||||
'(library (testfile-lm-use-c)
|
||||
(export x)
|
||||
(import (scheme) (testfile-lm-c))
|
||||
(define-syntax (x x) c))))
|
||||
'replace)
|
||||
#t)
|
||||
(equal?
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(compile-library "testfile-lm-a"))
|
||||
(string-append
|
||||
"compiling testfile-lm-a.ss with output to testfile-lm-a.so\n"
|
||||
"ct-a rhs\n"))
|
||||
(equal?
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(library-extensions '((".ss" . ".so")))
|
||||
'(compile-library "testfile-lm-b")
|
||||
'(printf "b = ~s\n" (let () (import (testfile-lm-b)) b)))
|
||||
(string-append
|
||||
"compiling testfile-lm-b.ss with output to testfile-lm-b.so\n"
|
||||
"import: found source file \"testfile-lm-a.ss\"\n"
|
||||
"import: found corresponding object file \"testfile-lm-a.so\"\n"
|
||||
"import: object file is not older\n"
|
||||
"import: loading object file \"testfile-lm-a.so\"\n"
|
||||
"ct-a rhs\n"
|
||||
"b = \"odd\"\n"))
|
||||
(equal?
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(library-extensions '((".ss" . ".so")))
|
||||
'(compile-library "testfile-lm-c")
|
||||
'(printf "c = ~s\n" (let () (import (testfile-lm-c)) c)))
|
||||
(string-append
|
||||
"compiling testfile-lm-c.ss with output to testfile-lm-c.so\n"
|
||||
"import: found source file \"testfile-lm-a.ss\"\n"
|
||||
"import: found corresponding object file \"testfile-lm-a.so\"\n"
|
||||
"import: object file is not older\n"
|
||||
"import: loading object file \"testfile-lm-a.so\"\n"
|
||||
"rt-a rhs\n"
|
||||
"c = 456\n"))
|
||||
(equal?
|
||||
;; library manager revisits object file containing a single library
|
||||
;; to resolve dependencies after earlier visit
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(library-extensions '((".ss" . ".so")))
|
||||
'(visit "testfile-lm-a.so")
|
||||
'(let () (import (testfile-lm-c)) c))
|
||||
(string-append
|
||||
"import: found source file \"testfile-lm-c.ss\"\n"
|
||||
"import: found corresponding object file \"testfile-lm-c.so\"\n"
|
||||
"import: object file is not older\n"
|
||||
"import: loading object file \"testfile-lm-c.so\"\n"
|
||||
"import: attempting to 'revisit' previously 'visited' \"testfile-lm-a.so\" for library (testfile-lm-a) run-time info\n"
|
||||
"rt-a rhs\n"
|
||||
"456\n"))
|
||||
(equal?
|
||||
;; library manager visits object file containing a single library
|
||||
;; to resolve dependencies after earlier revisit
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(library-extensions '((".ss" . ".so")))
|
||||
'(revisit "testfile-lm-a.so")
|
||||
'(let () (import (testfile-lm-b)) b))
|
||||
(string-append
|
||||
"import: found source file \"testfile-lm-b.ss\"\n"
|
||||
"import: found corresponding object file \"testfile-lm-b.so\"\n"
|
||||
"import: object file is not older\n"
|
||||
"import: loading object file \"testfile-lm-b.so\"\n"
|
||||
"import: attempting to 'visit' previously 'revisited' \"testfile-lm-a.so\" for library (testfile-lm-a) compile-time info\n"
|
||||
"\"odd\"\n"))
|
||||
(equal?
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(library-extensions '((".ss" . ".so")))
|
||||
'(compile-file "testfile-lm-combined"))
|
||||
(string-append
|
||||
"compiling testfile-lm-combined.ss with output to testfile-lm-combined.so\n"
|
||||
"ct-a rhs\n"))
|
||||
(equal?
|
||||
;; library manager revisits object file containing related libraries
|
||||
;; to resolve dependencies after earlier visit
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(visit "testfile-lm-combined.so")
|
||||
'(let ()
|
||||
(import (testfile-lm-a))
|
||||
(define-syntax (foo x) ct-a)
|
||||
(printf "foo = ~s\n" foo))
|
||||
'(let () (import (testfile-lm-c)) c))
|
||||
(string-append
|
||||
"ct-a rhs\n"
|
||||
"foo = 123\n"
|
||||
"import: attempting to 'revisit' previously 'visited' \"testfile-lm-combined.so\" for library (testfile-lm-c) run-time info\n"
|
||||
"rt-a rhs\n"
|
||||
"456\n"))
|
||||
(equal?
|
||||
;; library manager visits object file containing related libraries
|
||||
;; to resolve dependencies after earlier revisit
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(revisit "testfile-lm-combined.so")
|
||||
'(let ()
|
||||
(import (testfile-lm-a))
|
||||
(define foo rt-a)
|
||||
(printf "foo = ~s\n" foo))
|
||||
'(let () (import (testfile-lm-b)) b))
|
||||
(string-append
|
||||
"import: attempting to 'visit' previously 'revisited' \"testfile-lm-combined.so\" for library (testfile-lm-a) compile-time info\n"
|
||||
"rt-a rhs\n"
|
||||
"foo = 456\n"
|
||||
"\"odd\"\n"))
|
||||
(equal?
|
||||
;; library manager does not revisit due to earlier load
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(load "testfile-lm-combined.so")
|
||||
'(let ()
|
||||
(import (testfile-lm-a))
|
||||
(define-syntax (foo x) ct-a)
|
||||
(printf "foo = ~s\n" foo))
|
||||
'(let () (import (testfile-lm-c)) c))
|
||||
(string-append
|
||||
"ct-a rhs\n"
|
||||
"foo = 123\n"
|
||||
"rt-a rhs\n"
|
||||
"456\n"))
|
||||
(equal?
|
||||
;; library manager does not revisit due to earlier load
|
||||
(separate-eval
|
||||
'(import-notify #t)
|
||||
'(load "testfile-lm-combined.so")
|
||||
'(let ()
|
||||
(import (testfile-lm-a))
|
||||
(define foo rt-a)
|
||||
(printf "foo = ~s\n" foo))
|
||||
'(let () (import (testfile-lm-b)) b))
|
||||
(string-append
|
||||
"rt-a rhs\n"
|
||||
"foo = 456\n"
|
||||
"\"odd\"\n"))
|
||||
)
|
||||
|
||||
|
||||
;;; section 7.2:
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@ typedef long long i64;
|
|||
# define EXPORT
|
||||
#endif
|
||||
|
||||
/* To help make sure that argument and result handling doens't
|
||||
/* To help make sure that argument and result handling doesn't
|
||||
read or write too far, try to provide functions that allocate
|
||||
a structure at the end of a memory page (where the next page is
|
||||
likely to be unmapped) */
|
||||
|
|
|
|||
|
|
@ -380,6 +380,7 @@
|
|||
(open-process-ports (format "~a -q" (patch-exec-path *scheme*))
|
||||
(buffer-mode block)
|
||||
(native-transcoder))])
|
||||
(pretty-print `(#%$enable-check-prelex-flags ,(#%$enable-check-prelex-flags)) to-stdin)
|
||||
(for-each (lambda (expr) (pretty-print expr to-stdin)) expr*)
|
||||
(close-port to-stdin)
|
||||
(let* ([stdout-stuff (slurp from-stdout)]
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-0-f-f-f 2018-01-13 17:04:08.000000000 -0500
|
||||
--- errors-compile-0-f-t-f 2018-01-13 16:31:53.000000000 -0500
|
||||
*** errors-compile-0-f-f-f 2018-05-21 16:24:51.416317188 -0400
|
||||
--- errors-compile-0-f-t-f 2018-05-21 15:45:38.426922815 -0400
|
||||
***************
|
||||
*** 125,131 ****
|
||||
3.mo:Expected error in mat dipa-letrec: "attempt to reference undefined variable a".
|
||||
|
|
@ -58,7 +58,7 @@
|
|||
3.mo:Expected error in mat mrvs: "attempt to apply non-procedure 17".
|
||||
3.mo:Expected error in mat mrvs: "returned two values to single value return context".
|
||||
***************
|
||||
*** 3680,3686 ****
|
||||
*** 3697,3703 ****
|
||||
misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"".
|
||||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q".
|
||||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar".
|
||||
|
|
@ -66,7 +66,7 @@
|
|||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b".
|
||||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b".
|
||||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a".
|
||||
--- 3680,3686 ----
|
||||
--- 3697,3703 ----
|
||||
misc.mo:Expected error in mat cpletrec: "foreign-procedure: no entry for "foo"".
|
||||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable q".
|
||||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable bar".
|
||||
|
|
@ -75,7 +75,7 @@
|
|||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable b".
|
||||
misc.mo:Expected error in mat cpletrec: "attempt to reference undefined variable a".
|
||||
***************
|
||||
*** 7130,7137 ****
|
||||
*** 7148,7155 ****
|
||||
7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu".
|
||||
7.mo:Expected error in mat error: "a: hit me!".
|
||||
7.mo:Expected error in mat error: "f: n is 0".
|
||||
|
|
@ -84,7 +84,7 @@
|
|||
record.mo:Expected error in mat record2: "invalid value 3 for foreign type double-float".
|
||||
record.mo:Expected error in mat record2: "3 is not of type #<record type fudge>".
|
||||
record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
|
||||
--- 7130,7137 ----
|
||||
--- 7148,7155 ----
|
||||
7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu".
|
||||
7.mo:Expected error in mat error: "a: hit me!".
|
||||
7.mo:Expected error in mat error: "f: n is 0".
|
||||
|
|
@ -94,7 +94,7 @@
|
|||
record.mo:Expected error in mat record2: "3 is not of type #<record type fudge>".
|
||||
record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
|
||||
***************
|
||||
*** 7139,7153 ****
|
||||
*** 7157,7171 ****
|
||||
record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)".
|
||||
record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car".
|
||||
record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound".
|
||||
|
|
@ -110,7 +110,7 @@
|
|||
record.mo:Expected error in mat record9: "record-reader: invalid input #f".
|
||||
record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
|
||||
record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
|
||||
--- 7139,7153 ----
|
||||
--- 7157,7171 ----
|
||||
record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)".
|
||||
record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car".
|
||||
record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound".
|
||||
|
|
@ -127,7 +127,7 @@
|
|||
record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
|
||||
record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
|
||||
***************
|
||||
*** 7160,7185 ****
|
||||
*** 7178,7203 ****
|
||||
record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
|
|
@ -154,7 +154,7 @@
|
|||
record.mo:Expected error in mat foreign-data: "foreign-alloc: 0 is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: <int> is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
|
||||
--- 7160,7185 ----
|
||||
--- 7178,7203 ----
|
||||
record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
|
|
@ -182,7 +182,7 @@
|
|||
record.mo:Expected error in mat foreign-data: "foreign-alloc: <int> is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
|
||||
***************
|
||||
*** 7310,7348 ****
|
||||
*** 7328,7366 ****
|
||||
record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
|
||||
record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
|
||||
record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #<record type foo>".
|
||||
|
|
@ -222,7 +222,7 @@
|
|||
record.mo:Expected error in mat record?: "record?: 4 is not a record type descriptor".
|
||||
record.mo:Expected error in mat record?: "record?: a is not a record type descriptor".
|
||||
record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor".
|
||||
--- 7310,7348 ----
|
||||
--- 7328,7366 ----
|
||||
record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
|
||||
record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
|
||||
record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #<record type foo>".
|
||||
|
|
@ -263,7 +263,7 @@
|
|||
record.mo:Expected error in mat record?: "record?: a is not a record type descriptor".
|
||||
record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor".
|
||||
***************
|
||||
*** 7357,7413 ****
|
||||
*** 7375,7431 ****
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam".
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure".
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam".
|
||||
|
|
@ -321,7 +321,7 @@
|
|||
record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent".
|
||||
record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent".
|
||||
record.mo:Expected error in mat r6rs-records-syntactic: "cannot extend define-record-type parent fratrat".
|
||||
--- 7357,7413 ----
|
||||
--- 7375,7431 ----
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam".
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure".
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam".
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-0-f-f-f 2018-01-13 17:04:08.000000000 -0500
|
||||
--- errors-interpret-0-f-f-f 2018-01-13 16:46:53.000000000 -0500
|
||||
*** errors-compile-0-f-f-f 2018-05-21 16:24:51.416317188 -0400
|
||||
--- errors-interpret-0-f-f-f 2018-05-21 16:02:23.564959831 -0400
|
||||
***************
|
||||
*** 1,7 ****
|
||||
primvars.mo:Expected error in mat make-parameter: "make-parameter: 2 is not a procedure".
|
||||
|
|
@ -196,7 +196,7 @@
|
|||
3.mo:Expected error in mat mrvs: "returned two values to single value return context".
|
||||
3.mo:Expected error in mat mrvs: "cdr: a is not a pair".
|
||||
***************
|
||||
*** 4039,4054 ****
|
||||
*** 4056,4071 ****
|
||||
6.mo:Expected error in mat pretty-print: "incorrect argument count in call (pretty-format (quote foo) (quote x) (quote x))".
|
||||
6.mo:Expected error in mat pretty-print: "pretty-format: 3 is not a symbol".
|
||||
6.mo:Expected error in mat pretty-print: "pretty-format: invalid format (bad 0 ... ... 0 format)".
|
||||
|
|
@ -213,9 +213,9 @@
|
|||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too few arguments for control string "abc~s" in call to fprintf at line 1, char 29 of testfile.ss".
|
||||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too many arguments for control string "~%~abc~adef~ag~s~~~%" in call to fprintf at line 1, char 29 of testfile.ss".
|
||||
6.mo:Expected error in mat print-parameters: "write: cycle detected; proceeding with (print-graph #t)".
|
||||
--- 4045,4054 ----
|
||||
--- 4062,4071 ----
|
||||
***************
|
||||
*** 6994,7000 ****
|
||||
*** 7011,7017 ****
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in include: failed for testfile-mc-1a.ss: no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: failed for "testfile-mc-1a.ss": no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: file "testfile-mc-1a.ss" not found in source directories
|
||||
|
|
@ -223,7 +223,7 @@
|
|||
7.mo:Expected error in mat eval: "interpret: 7 is not an environment".
|
||||
7.mo:Expected error in mat eval: "compile: 7 is not an environment".
|
||||
7.mo:Expected error in mat expand: "sc-expand: 7 is not an environment".
|
||||
--- 6994,7000 ----
|
||||
--- 7011,7017 ----
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in include: failed for testfile-mc-1a.ss: no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: failed for "testfile-mc-1a.ss": no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: file "testfile-mc-1a.ss" not found in source directories
|
||||
|
|
@ -232,7 +232,7 @@
|
|||
7.mo:Expected error in mat eval: "compile: 7 is not an environment".
|
||||
7.mo:Expected error in mat expand: "sc-expand: 7 is not an environment".
|
||||
***************
|
||||
*** 7321,7327 ****
|
||||
*** 7339,7345 ****
|
||||
record.mo:Expected error in mat record25: "invalid value #\9 for foreign type uptr".
|
||||
record.mo:Expected error in mat record25: "invalid value 10 for foreign type float".
|
||||
record.mo:Expected error in mat record25: "invalid value 11.0+0.0i for foreign type double".
|
||||
|
|
@ -240,7 +240,7 @@
|
|||
record.mo:Expected error in mat record25: "invalid value 12.0 for foreign type long-long".
|
||||
record.mo:Expected error in mat record25: "invalid value 13.0 for foreign type unsigned-long-long".
|
||||
record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type int".
|
||||
--- 7321,7327 ----
|
||||
--- 7339,7345 ----
|
||||
record.mo:Expected error in mat record25: "invalid value #\9 for foreign type uptr".
|
||||
record.mo:Expected error in mat record25: "invalid value 10 for foreign type float".
|
||||
record.mo:Expected error in mat record25: "invalid value 11.0+0.0i for foreign type double".
|
||||
|
|
@ -249,7 +249,7 @@
|
|||
record.mo:Expected error in mat record25: "invalid value 13.0 for foreign type unsigned-long-long".
|
||||
record.mo:Expected error in mat record25: "invalid value 3.0 for foreign type int".
|
||||
***************
|
||||
*** 8530,8542 ****
|
||||
*** 8556,8568 ****
|
||||
fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum".
|
||||
fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum".
|
||||
|
|
@ -263,7 +263,7 @@
|
|||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <int> is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum".
|
||||
--- 8530,8542 ----
|
||||
--- 8556,8568 ----
|
||||
fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum".
|
||||
fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum".
|
||||
|
|
@ -278,7 +278,7 @@
|
|||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum".
|
||||
***************
|
||||
*** 9297,9321 ****
|
||||
*** 9323,9347 ****
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
|
|
@ -304,7 +304,7 @@
|
|||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure argument type specifier booleen".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure argument type specifier integer-34".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure result type specifier chare".
|
||||
--- 9297,9321 ----
|
||||
--- 9323,9347 ----
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "foreign-procedure: invalid foreign procedure handle foo".
|
||||
|
|
@ -331,7 +331,7 @@
|
|||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure argument type specifier integer-34".
|
||||
foreign.mo:Expected error in mat foreign-procedure: "invalid foreign-procedure result type specifier chare".
|
||||
***************
|
||||
*** 9328,9359 ****
|
||||
*** 9354,9385 ****
|
||||
foreign.mo:Expected error in mat foreign-sizeof: "incorrect argument count in call (foreign-sizeof (quote int) (quote int))".
|
||||
foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier i-am-not-a-type".
|
||||
foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier 1".
|
||||
|
|
@ -364,7 +364,7 @@
|
|||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
--- 9328,9359 ----
|
||||
--- 9354,9385 ----
|
||||
foreign.mo:Expected error in mat foreign-sizeof: "incorrect argument count in call (foreign-sizeof (quote int) (quote int))".
|
||||
foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier i-am-not-a-type".
|
||||
foreign.mo:Expected error in mat foreign-sizeof: "foreign-sizeof: invalid foreign type specifier 1".
|
||||
|
|
@ -398,7 +398,7 @@
|
|||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
***************
|
||||
*** 9361,9386 ****
|
||||
*** 9387,9412 ****
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
|
|
@ -425,7 +425,7 @@
|
|||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
--- 9361,9386 ----
|
||||
--- 9387,9412 ----
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-strings: "foreign-callable: invalid return value ("ello" 4) from #<procedure>".
|
||||
|
|
@ -453,7 +453,7 @@
|
|||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
***************
|
||||
*** 9391,9425 ****
|
||||
*** 9417,9451 ****
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
|
|
@ -489,7 +489,7 @@
|
|||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
--- 9391,9425 ----
|
||||
--- 9417,9451 ----
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-fixed-types: "foreign-callable: invalid return value (- x 7) from #<procedure>".
|
||||
|
|
@ -526,7 +526,7 @@
|
|||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
foreign.mo:Expected error in mat foreign-C-types: "foreign-callable: invalid return value (73 74) from #<procedure>".
|
||||
***************
|
||||
*** 10012,10021 ****
|
||||
*** 10052,10061 ****
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (memq (quote b) (quote (1 2 a 3 4)))".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (q ...)".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (andmap symbol? (syntax (x ...)))".
|
||||
|
|
@ -537,7 +537,7 @@
|
|||
oop.mo:Expected error in mat oop: "m1: not applicable to 17".
|
||||
oop.mo:Expected error in mat oop: "variable <a>-x1 is not bound".
|
||||
oop.mo:Expected error in mat oop: "variable <a>-x1-set! is not bound".
|
||||
--- 10012,10021 ----
|
||||
--- 10052,10061 ----
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (memq (quote b) (quote (1 2 a 3 4)))".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (q ...)".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (andmap symbol? (syntax (x ...)))".
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-0-f-t-f 2018-01-13 16:31:53.000000000 -0500
|
||||
--- errors-interpret-0-f-t-f 2018-01-13 16:54:40.000000000 -0500
|
||||
*** errors-compile-0-f-t-f 2018-05-21 15:45:38.426922815 -0400
|
||||
--- errors-interpret-0-f-t-f 2018-05-21 16:11:21.764903593 -0400
|
||||
***************
|
||||
*** 1,7 ****
|
||||
primvars.mo:Expected error in mat make-parameter: "make-parameter: 2 is not a procedure".
|
||||
|
|
@ -169,7 +169,7 @@
|
|||
3.mo:Expected error in mat letrec: "variable f is not bound".
|
||||
3.mo:Expected error in mat letrec: "attempt to reference undefined variable a".
|
||||
***************
|
||||
*** 4039,4054 ****
|
||||
*** 4056,4071 ****
|
||||
6.mo:Expected error in mat pretty-print: "incorrect argument count in call (pretty-format (quote foo) (quote x) (quote x))".
|
||||
6.mo:Expected error in mat pretty-print: "pretty-format: 3 is not a symbol".
|
||||
6.mo:Expected error in mat pretty-print: "pretty-format: invalid format (bad 0 ... ... 0 format)".
|
||||
|
|
@ -186,9 +186,9 @@
|
|||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too few arguments for control string "abc~s" in call to fprintf at line 1, char 29 of testfile.ss".
|
||||
6.mo:Expected warning in mat cp1in-verify-format-warnings: "compile: too many arguments for control string "~%~abc~adef~ag~s~~~%" in call to fprintf at line 1, char 29 of testfile.ss".
|
||||
6.mo:Expected error in mat print-parameters: "write: cycle detected; proceeding with (print-graph #t)".
|
||||
--- 4045,4054 ----
|
||||
--- 4062,4071 ----
|
||||
***************
|
||||
*** 6994,7000 ****
|
||||
*** 7011,7017 ****
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in include: failed for testfile-mc-1a.ss: no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: failed for "testfile-mc-1a.ss": no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: file "testfile-mc-1a.ss" not found in source directories
|
||||
|
|
@ -196,7 +196,7 @@
|
|||
7.mo:Expected error in mat eval: "interpret: 7 is not an environment".
|
||||
7.mo:Expected error in mat eval: "compile: 7 is not an environment".
|
||||
7.mo:Expected error in mat expand: "sc-expand: 7 is not an environment".
|
||||
--- 6994,7000 ----
|
||||
--- 7011,7017 ----
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in include: failed for testfile-mc-1a.ss: no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: failed for "testfile-mc-1a.ss": no such file or directory
|
||||
7.mo:Expected error in mat maybe-compile: "separate-compile: Exception in maybe-compile-library: file "testfile-mc-1a.ss" not found in source directories
|
||||
|
|
@ -205,7 +205,7 @@
|
|||
7.mo:Expected error in mat eval: "compile: 7 is not an environment".
|
||||
7.mo:Expected error in mat expand: "sc-expand: 7 is not an environment".
|
||||
***************
|
||||
*** 7130,7137 ****
|
||||
*** 7148,7155 ****
|
||||
7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu".
|
||||
7.mo:Expected error in mat error: "a: hit me!".
|
||||
7.mo:Expected error in mat error: "f: n is 0".
|
||||
|
|
@ -214,7 +214,7 @@
|
|||
record.mo:Expected error in mat record2: "invalid value 3 for foreign type double-float".
|
||||
record.mo:Expected error in mat record2: "3 is not of type #<record type fudge>".
|
||||
record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
|
||||
--- 7130,7137 ----
|
||||
--- 7148,7155 ----
|
||||
7.mo:Expected error in mat bytes-allocated: "bytes-allocated: invalid space gnu".
|
||||
7.mo:Expected error in mat error: "a: hit me!".
|
||||
7.mo:Expected error in mat error: "f: n is 0".
|
||||
|
|
@ -224,7 +224,7 @@
|
|||
record.mo:Expected error in mat record2: "3 is not of type #<record type fudge>".
|
||||
record.mo:Expected error in mat record2: "make-record-type: invalid field list ((immutable double-float a) . b)".
|
||||
***************
|
||||
*** 7139,7153 ****
|
||||
*** 7157,7171 ****
|
||||
record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)".
|
||||
record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car".
|
||||
record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound".
|
||||
|
|
@ -240,7 +240,7 @@
|
|||
record.mo:Expected error in mat record9: "record-reader: invalid input #f".
|
||||
record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
|
||||
record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
|
||||
--- 7139,7153 ----
|
||||
--- 7157,7171 ----
|
||||
record.mo:Expected error in mat type-descriptor: "invalid syntax (type-descriptor 3)".
|
||||
record.mo:Expected error in mat type-descriptor: "type-descriptor: unrecognized record car".
|
||||
record.mo:Expected error in mat record3: "variable set-fudge-a! is not bound".
|
||||
|
|
@ -257,7 +257,7 @@
|
|||
record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
|
||||
record.mo:Expected error in mat record9: "record-reader: invalid second argument fudge".
|
||||
***************
|
||||
*** 7160,7185 ****
|
||||
*** 7178,7203 ****
|
||||
record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
|
|
@ -284,7 +284,7 @@
|
|||
record.mo:Expected error in mat foreign-data: "foreign-alloc: 0 is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: <int> is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
|
||||
--- 7160,7185 ----
|
||||
--- 7178,7203 ----
|
||||
record.mo:Expected error in mat record10: "read: unresolvable cycle constructing record of type #<record type bar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
record.mo:Expected error in mat record16: "read: unresolvable cycle constructing record of type #<record type bazar> at char 3 of #<input port string>".
|
||||
|
|
@ -312,7 +312,7 @@
|
|||
record.mo:Expected error in mat foreign-data: "foreign-alloc: <int> is not a positive fixnum".
|
||||
record.mo:Expected error in mat foreign-data: "foreign-alloc: -5 is not a positive fixnum".
|
||||
***************
|
||||
*** 7310,7348 ****
|
||||
*** 7328,7366 ****
|
||||
record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
|
||||
record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
|
||||
record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #<record type foo>".
|
||||
|
|
@ -352,7 +352,7 @@
|
|||
record.mo:Expected error in mat record?: "record?: 4 is not a record type descriptor".
|
||||
record.mo:Expected error in mat record?: "record?: a is not a record type descriptor".
|
||||
record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor".
|
||||
--- 7310,7348 ----
|
||||
--- 7328,7366 ----
|
||||
record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
|
||||
record.mo:Expected error in mat record22: "invalid field specifier (immutable creepy q)".
|
||||
record.mo:Expected error in mat record23: "make-record-type: cannot extend sealed record type #<record type foo>".
|
||||
|
|
@ -393,7 +393,7 @@
|
|||
record.mo:Expected error in mat record?: "record?: a is not a record type descriptor".
|
||||
record.mo:Expected error in mat record?: "record?: #(1) is not a record type descriptor".
|
||||
***************
|
||||
*** 7357,7413 ****
|
||||
*** 7375,7431 ****
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam".
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure".
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam".
|
||||
|
|
@ -451,7 +451,7 @@
|
|||
record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent".
|
||||
record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent".
|
||||
record.mo:Expected error in mat r6rs-records-syntactic: "cannot extend define-record-type parent fratrat".
|
||||
--- 7357,7413 ----
|
||||
--- 7375,7431 ----
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "make-record-constructor-descriptor: invalid protocol flimflam".
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure not-a-procedure".
|
||||
record.mo:Expected error in mat r6rs-records-procedural: "attempt to apply non-procedure spam".
|
||||
|
|
@ -510,7 +510,7 @@
|
|||
record.mo:Expected error in mat r6rs-records-syntactic: "define-record-type: incompatible record type cpoint - different parent".
|
||||
record.mo:Expected error in mat r6rs-records-syntactic: "cannot extend define-record-type parent fratrat".
|
||||
***************
|
||||
*** 8530,8542 ****
|
||||
*** 8556,8568 ****
|
||||
fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum".
|
||||
fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum".
|
||||
|
|
@ -524,7 +524,7 @@
|
|||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <int> is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum".
|
||||
--- 8530,8542 ----
|
||||
--- 8556,8568 ----
|
||||
fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx-: "fx-: #f is not a fixnum".
|
||||
fx.mo:Expected error in mat fx*: "fx*: (a . b) is not a fixnum".
|
||||
|
|
@ -539,7 +539,7 @@
|
|||
fx.mo:Expected error in mat r6rs:fx*: "fx*: <-int> is not a fixnum".
|
||||
fx.mo:Expected error in mat r6rs:fx*: "fx*: #f is not a fixnum".
|
||||
***************
|
||||
*** 10012,10021 ****
|
||||
*** 10052,10061 ****
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (memq (quote b) (quote (1 2 a 3 4)))".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (q ...)".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (andmap symbol? (syntax (x ...)))".
|
||||
|
|
@ -550,7 +550,7 @@
|
|||
oop.mo:Expected error in mat oop: "m1: not applicable to 17".
|
||||
oop.mo:Expected error in mat oop: "variable <a>-x1 is not bound".
|
||||
oop.mo:Expected error in mat oop: "variable <a>-x1-set! is not bound".
|
||||
--- 10012,10021 ----
|
||||
--- 10052,10061 ----
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (memq (quote b) (quote (1 2 a 3 4)))".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (q ...)".
|
||||
exceptions.mo:Expected error in mat assert: "failed assertion (andmap symbol? (syntax (x ...)))".
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-3-f-f-f 2018-01-13 16:28:10.000000000 -0500
|
||||
--- errors-interpret-3-f-f-f 2018-01-13 17:09:48.000000000 -0500
|
||||
*** errors-compile-3-f-f-f 2018-05-21 15:41:36.322395203 -0400
|
||||
--- errors-interpret-3-f-f-f 2018-05-21 16:32:29.625426575 -0400
|
||||
***************
|
||||
*** 1,3 ****
|
||||
--- 1,9 ----
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
*** errors-compile-3-f-t-f 2018-01-13 16:35:27.000000000 -0500
|
||||
--- errors-interpret-3-f-t-f 2018-01-13 16:58:28.000000000 -0500
|
||||
*** errors-compile-3-f-t-f 2018-05-21 15:49:28.816472990 -0400
|
||||
--- errors-interpret-3-f-t-f 2018-05-21 16:15:47.611381258 -0400
|
||||
***************
|
||||
*** 1,3 ****
|
||||
--- 1,9 ----
|
||||
|
|
|
|||
|
|
@ -7032,6 +7032,7 @@ format.mo:Expected error in mat format-dollar: "format: expected real number for
|
|||
7.mo:Expected error in mat eval-when: "invalid syntax revisit-x".
|
||||
7.mo:Expected error in mat compile-whole-program: "compile-whole-program: failed for nosuchfile.wpo: no such file or directory".
|
||||
7.mo:Expected error in mat compile-whole-program: "incorrect argument count in call (compile-whole-program "testfile-wpo-ab.wpo")".
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception in visit: library (testfile-wpo-lib) is not visible
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-a4) not found
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-c4) not found
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: attempt to invoke library (testfile-wpo-c5) while it is still being loaded
|
||||
|
|
|
|||
|
|
@ -7032,6 +7032,7 @@ format.mo:Expected error in mat format-dollar: "format: expected real number for
|
|||
7.mo:Expected error in mat eval-when: "invalid syntax revisit-x".
|
||||
7.mo:Expected error in mat compile-whole-program: "compile-whole-program: failed for nosuchfile.wpo: no such file or directory".
|
||||
7.mo:Expected error in mat compile-whole-program: "incorrect argument count in call (compile-whole-program "testfile-wpo-ab.wpo")".
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception in visit: library (testfile-wpo-lib) is not visible
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-a4) not found
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: library (testfile-wpo-c4) not found
|
||||
7.mo:Expected error in mat compile-whole-program: "separate-eval: Exception: attempt to invoke library (testfile-wpo-c5) while it is still being loaded
|
||||
|
|
|
|||
41
s/compile.ss
41
s/compile.ss
|
|
@ -1018,7 +1018,8 @@
|
|||
(unless (program-node-ir maybe-program) ($oops who "loading ~a did not define expected program pieces" ifn))
|
||||
(chase-program-dependencies! maybe-program))
|
||||
(for-each chase-library-dependencies! node*)
|
||||
(values maybe-program (filter library-node-visible? (vector->list (hashtable-values libs))) wpo*)))))
|
||||
(let-values ([(visible* invisible*) (partition library-node-visible? (vector->list (hashtable-values libs)))])
|
||||
(values maybe-program visible* invisible* wpo*))))))
|
||||
|
||||
(define topological-sort
|
||||
(lambda (program-entry library-entry*)
|
||||
|
|
@ -1043,12 +1044,27 @@
|
|||
(lambda (node)
|
||||
(nanopass-case (Lexpand ctLibrary) (library-node-ctir node)
|
||||
[(library/ct ,uid (,export-id* ...) ,import-code ,visit-code)
|
||||
($build-install-library/ct-code uid export-id*
|
||||
(if (library-node-visible? node) import-code void-pr)
|
||||
(if (library-node-visible? node) visit-code void-pr))])))
|
||||
(if (library-node-visible? node)
|
||||
($build-install-library/ct-code uid export-id* import-code visit-code)
|
||||
(let ([fail (gen-var 'fail)])
|
||||
(set-prelex-referenced! fail #t)
|
||||
(set-prelex-multiply-referenced! fail #t)
|
||||
(build-let
|
||||
(list fail)
|
||||
(list (build-lambda '()
|
||||
(build-primcall '$oops `(quote ,'visit)
|
||||
`(quote ,"library ~s is not visible")
|
||||
`(quote ,(library-node-path node)))))
|
||||
($build-install-library/ct-code uid export-id* `(ref #f ,fail) `(ref #f ,fail)))))])))
|
||||
|
||||
|
||||
(define build-void (let ([void-rec `(quote ,(void))]) (lambda () void-rec)))
|
||||
|
||||
(define gen-var (lambda (sym) (make-prelex sym 0 #f #f)))
|
||||
(define build-let
|
||||
(lambda (ids exprs body)
|
||||
`(call ,(make-preinfo) ,(build-lambda ids body) ,exprs ...)))
|
||||
|
||||
(define build-lambda
|
||||
(lambda (ids body)
|
||||
`(case-lambda ,(make-preinfo-lambda)
|
||||
|
|
@ -1180,10 +1196,6 @@
|
|||
|
||||
(define build-combined-library-ir
|
||||
(lambda (node*)
|
||||
(define gen-var (lambda (sym) (make-prelex sym 0 #f #f)))
|
||||
(define build-let
|
||||
(lambda (ids exprs body)
|
||||
`(call ,(make-preinfo) ,(build-lambda ids body) ,exprs ...)))
|
||||
(define build-mark-invoked!
|
||||
(lambda (node)
|
||||
(build-primcall '$mark-invoked! `(quote ,(library-node-uid node)))))
|
||||
|
|
@ -1318,10 +1330,12 @@
|
|||
body visit-lib*)))
|
||||
|
||||
(define build-program-body
|
||||
(lambda (program-entry node* visit-lib*)
|
||||
(lambda (program-entry node* visit-lib* invisible*)
|
||||
(add-library-records node* visit-lib*
|
||||
(add-library-records node* invisible*
|
||||
(add-visit-lib-install* visit-lib*
|
||||
`(revisit-only ,(build-combined-program-ir program-entry node*))))))
|
||||
(add-visit-lib-install* invisible*
|
||||
`(revisit-only ,(build-combined-program-ir program-entry node*))))))))
|
||||
|
||||
(define build-library-body
|
||||
(lambda (node* visit-lib*)
|
||||
|
|
@ -1390,12 +1404,12 @@
|
|||
(unless (string? ifn) ($oops who "~s is not a string" ifn))
|
||||
(unless (string? ofn) ($oops who "~s is not a string" ofn))
|
||||
(let*-values ([(hash-bang-line ir*) (read-input-file who ifn)]
|
||||
[(program-entry lib* no-wpo*) (build-graph who ir* ifn #t #f libs-visible?)])
|
||||
[(program-entry lib* invisible* no-wpo*) (build-graph who ir* ifn #t #f libs-visible?)])
|
||||
(safe-assert program-entry)
|
||||
(safe-assert (null? no-wpo*))
|
||||
(let ([node* (topological-sort program-entry lib*)])
|
||||
(finish-compile who "whole program" ifn ofn hash-bang-line
|
||||
(build-program-body program-entry node* lib*))
|
||||
(build-program-body program-entry node* lib* invisible*))
|
||||
(build-required-library-list node* lib*)))])))
|
||||
|
||||
(set-who! compile-whole-library
|
||||
|
|
@ -1403,8 +1417,9 @@
|
|||
(unless (string? ifn) ($oops who "~s is not a string" ifn))
|
||||
(unless (string? ofn) ($oops who "~s is not a string" ofn))
|
||||
(let*-values ([(hash-bang-line ir*) (read-input-file who ifn)]
|
||||
[(no-program lib* wpo*) (build-graph who ir* ifn #f (generate-wpo-files) #t)])
|
||||
[(no-program lib* invisible* wpo*) (build-graph who ir* ifn #f (generate-wpo-files) #t)])
|
||||
(safe-assert (not no-program))
|
||||
(safe-assert (null? invisible*))
|
||||
(safe-assert (or (not (generate-wpo-files)) (not (null? wpo*))))
|
||||
(when (null? lib*) ($oops "did not find libraries in input file ~s" ifn))
|
||||
(let ([node* (topological-sort #f lib*)])
|
||||
|
|
|
|||
|
|
@ -76,6 +76,14 @@
|
|||
<FeatureRef Id="VCRedist64"/>
|
||||
<?endif?>
|
||||
|
||||
<Feature Id="Registry" Level="1" Title="Chez Scheme Registry Entries">
|
||||
<Component Id="cmpRegistry" Directory="APPLICATIONFOLDER" Guid="*">
|
||||
<RegistryKey Root="HKLM" Key="SOFTWARE\Chez Scheme\csv$(var.Version)">
|
||||
<RegistryValue Name="HeapSearchPath" Value="[D_boot]%m" Type="string" />
|
||||
</RegistryKey>
|
||||
</Component>
|
||||
</Feature>
|
||||
|
||||
<Icon Id="cs.ico" SourceFile="../c/cs.ico"/>
|
||||
<Property Id="ARPPRODUCTICON" Value="cs.ico"/>
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user