Re: [Chicken-users] how to do (current-load-port) in chicken? (Modified by Rick Taube)

[Rick Taube]

> ##sys#current-load-file

thank you, but this will not work in the context of a file that is 
loaded into all schemes:

(let ((this-file #f))
  (cond-expand
   (guile
    (set! this-file (port-filename (current-load-port))))
   (gauche
    (set! this-file (port-name (current-load-port))))
   (chicken
    (set! this-file ##sys#current-load-file)))
  this-file)
h
because the ## dispatch is expanded in all lisps, not just chicken.
im sorry im brand new to chicken -- is there some way to access this 
variable without using read-time expansion?


Rick Taube
Associate Professor, Composition/Theory
School of Music
University of Illinois, Urbana IL 61821 USA
Net: address@hidden
Fax: 217 244 8319
Vox: 217 244 2684