.
original commit: 7460c2e442c46565123cc34d0636da0ddc805ace
This commit is contained in:
parent
194df866f2
commit
e6dbfe3f12
|
@ -1,5 +1,6 @@
|
|||
|
||||
(module awk mzscheme
|
||||
(require-for-syntax (lib "stx.ss" "syntax"))
|
||||
|
||||
(provide awk match:start match:end match:substring regexp-exec)
|
||||
|
||||
|
|
|
@ -2,7 +2,7 @@
|
|||
;; Object system, same as MzScheme version 103 and earlier
|
||||
|
||||
(module class mzscheme
|
||||
(require-for-syntax mzscheme)
|
||||
(require-for-syntax (lib "stx.ss""syntax"))
|
||||
|
||||
(define-struct obj (class slots))
|
||||
(define-struct class (name
|
||||
|
|
|
@ -2,6 +2,8 @@
|
|||
(module sigutil mzscheme
|
||||
;; Used by signedunit.ss
|
||||
|
||||
(require (lib "stx.ss" "syntax"))
|
||||
|
||||
(require "sigmatch.ss")
|
||||
(require "../exstruct.ss")
|
||||
(require "../unit.ss")
|
||||
|
|
|
@ -3,7 +3,8 @@
|
|||
|
||||
(module unit mzscheme
|
||||
(require-for-syntax (lib "kerncase.ss" "syntax")
|
||||
"private/unitidmap.ss")
|
||||
(lib "stx.ss" "syntax")
|
||||
"private/unitidmap.ss")
|
||||
|
||||
(define undefined (letrec ([x x]) x))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user