Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (17 sloc) 419 Bytes
'(;;;;;;;;;;;;;;;;;
(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))
Something went wrong with that request. Please try again.