chicken-users
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Rick Taube
Subject: Re: [Chicken-users] how to do (current-load-port) in chicken? (Modified by Rick Taube)
Date: Thu, 7 Apr 2005 06:32:50 -0500


##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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]