Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (17 sloc) 0.419 kb
'(;;;;;;;;;;;;;;;;;
(define (make-source code locat)
(vector code
(vector-ref locat 0)
(vector-ref locat 1)))
(define (source-code x)
(vector-ref x 0))
(define (source-locat x)
(vector (vector-ref x 1)
(vector-ref x 2)))
)
(define (make-source code locat)
(##make-source code locat))
(define (source-code x)
(##source-code x))
(define (source-locat x)
(##source-locat x))
Jump to Line
Something went wrong with that request. Please try again.