suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rebuild kernel file to add text% position-locations

Browse Source 
svn: r10852
This commit is contained in:
Matthew Flatt 2008-07-21 20:39:19 +00:00
parent a3bf5c9523
commit 5dbd83d8c2
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/private/kernel.ss
View File

@ -868,6 +868,7 @@
line-end-position line-end-position
line-start-position line-start-position
line-location line-location
position-locations
position-location position-location
position-line position-line
set-between-threshold set-between-threshold

10
src/mred/wxs/khead.ss
View File

@ -9,11 +9,11 @@
;; the library compiles with setup-plt in mzscheme. ;; the library compiles with setup-plt in mzscheme.
(define kernel:initialize-primitive-object (define kernel:initialize-primitive-object
(dynamic-require '#%mred-kernel 'initialize-primitive-object)) (dynamic-require ''#%mred-kernel 'initialize-primitive-object))
(define kernel:primitive-class-find-method (define kernel:primitive-class-find-method
(dynamic-require '#%mred-kernel 'primitive-class-find-method)) (dynamic-require ''#%mred-kernel 'primitive-class-find-method))
(define kernel:primitive-class-prepare-struct-type! (define kernel:primitive-class-prepare-struct-type!
(dynamic-require '#%mred-kernel 'primitive-class-prepare-struct-type!)) (dynamic-require ''#%mred-kernel 'primitive-class-prepare-struct-type!))
(define-syntax define-constant (define-syntax define-constant
(lambda (stx) (lambda (stx)
@ -28,7 +28,7 @@
#f)]) #f)])
(syntax (syntax
(begin (begin
(define kernel:name (dynamic-require '#%mred-kernel 'name)) (define kernel:name (dynamic-require ''#%mred-kernel 'name))
(provide (protect (rename kernel:name name))))))]))) (provide (protect (rename kernel:name name))))))])))
(define-syntax define-function (define-syntax define-function
@ -76,7 +76,7 @@
(with-syntax ([(old ...) (datum->syntax-object #f old #f)] (with-syntax ([(old ...) (datum->syntax-object #f old #f)]
[(new ...) (datum->syntax-object #f new #f)]) [(new ...) (datum->syntax-object #f new #f)])
(syntax (syntax
(define name (let ([c (dynamic-require '#%mred-kernel 'name)]) (define name (let ([c (dynamic-require ''#%mred-kernel 'name)])
(make-primitive-class (make-primitive-class
(lambda (class prop:object preparer dispatcher) (lambda (class prop:object preparer dispatcher)
(kernel:primitive-class-prepare-struct-type! (kernel:primitive-class-prepare-struct-type!