gsc/_sourceadt.scm

   1 '(;;;;;;;;;;;;;;;;;
   2 (define (make-source code locat)
   3   (vector code
   4           (vector-ref locat 0)
   5           (vector-ref locat 1)))
   6
   7 (define (source-code x)
   8   (vector-ref x 0))
   9
  10 (define (source-locat x)
  11   (vector (vector-ref x 1)
  12           (vector-ref x 2)))
  13 )
  14
  15 (define (make-source code locat)
  16   (##make-source code locat))
  17
  18 (define (source-code x)
  19   (##source-code x))
  20
  21 (define (source-locat x)
  22   (##source-locat x))