This is the mail archive of the kawa@sourceware.org mailing list for the Kawa project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

parameters inside r7rs library


Something goes wrong with parameters inside an r7rs library.

$ ./kawa-parameters.scm
./kawa-parameters.scm:14:21: warning - void-valued expression where value is needed ./kawa-parameters.scm:15:21: warning - void-valued expression where value is needed
./kawa-parameters.scm:13:7: warning - no declaration seen for let*
./kawa-parameters.scm:13:7: warning - no declaration seen for p
./kawa-parameters.scm:13:7: warning - no declaration seen for ::
./kawa-parameters.scm:13:7: warning - no declaration seen for v
parameterize.scm:12:6: warning - no declaration seen for save
parameterize.scm:12:13: warning - no declaration seen for quasiquote
parameterize.scm:12:13: warning - no declaration seen for setWithSave
parameterize.scm:12:46: warning - no declaration seen for p
parameterize.scm:12:48: warning - no declaration seen for v
./kawa-parameters.scm:13:7: warning - no declaration seen for try-finally
./kawa-parameters.scm:13:7: warning - no declaration seen for begin
./kawa-parameters.scm:13:7: warning - no declaration seen for begin
parameterize.scm:14:11: warning - no declaration seen for quasiquote
parameterize.scm:14:11: warning - no declaration seen for setRestore
parameterize.scm:14:43: warning - no declaration seen for p
parameterize.scm:14:45: warning - no declaration seen for save
./kawa-parameters.scm:13:7: unbound location: p
    at gnu.mapping.SharedLocation.get(SharedLocation.java:22)
    at gnu.mapping.DynamicLocation.get(DynamicLocation.java:28)
    at blerg.foo(kawa-parameters.scm:13)
    at blerg.apply0(kawa-parameters.scm:12)
    at gnu.expr.ModuleMethod.apply0(ModuleMethod.java:186)
    at gnu.expr.ModuleMethod.apply(ModuleMethod.java:160)
    at gnu.mapping.CallContext.runUntilDone(CallContext.java:234)
    at kawa$Mnparameters.run(kawa-parameters.scm:21)
    at gnu.expr.ModuleExp.evalModule2(ModuleExp.java:317)
    at gnu.expr.CompiledModule.evalModule(CompiledModule.java:42)
    at gnu.expr.CompiledModule.evalModule(CompiledModule.java:61)
    at kawa.Shell.runFile(Shell.java:538)
    at kawa.Shell.runFileOrClass(Shell.java:447)
    at kawa.repl.main(repl.java:881)

    -seth

#! /bin/sh
#| -*- scheme -*-
exec /usr/local/bin/kawa $0 "$@"
|#

(define-library (blerg)
  (export foo)
  (import (scheme base)
          (scheme write))
  (begin
    (define something (make-parameter #t))
    (define (foo)
      (parameterize ((something #f))
         (write (something))
         (newline))
      (write (something))
      (newline))))

(import (scheme base)
        (blerg))
(foo)

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]