Custom Query (1630 matches)

set-file-position! is no longer available, and (set! (file-position port) value) doesn't provide the same functionality since you can't specify whence.

Shawn Rutledge reported this problem:

(module foo *

(import scheme chicken foreign)
(use foreigners)

(define-foreign-record-type (vtable "struct DBusObjectPathVTable")
  (c-pointer dbus_internal_pad4 vtable-dbus_internal_pad4 vtable-dbus_internal_pad4-set!))

)

gives:

Error: illegal foreign return type `#%void'

I assume that there is some bug in either the foreigners extension or the interplay of define-foreign-record-type and the core FFI is wrong, or that the compiler does not strip-syntax a type-identifier somewhere.

CHICKEN (c)2008-2009 The Chicken Team (c)2000-2007 Felix L. Winkelmann Version 4.0.2 - SVN rev. 14239 macosx-unix-gnu-x86 [ manyargs dload ptables applyhook ] compiled 2009-04-16 on pchelka (Darwin)

#;1> (module x () (import (rename scheme (lambda fn))) ((fn (x) (+ x x)) 2)) ; loading /usr/local/lib/chicken/4/scheme.import.so ...

Warning: renamed identifier not imported: (lambda fn)

Warning: reference to possibly unbound identifier: x

Warning: reference to possibly unbound identifier: fn

Error: module unresolved: x

Call history:

<syntax> (module x () (import (rename scheme (lambda fn))) ((fn (x) (+ x x)) 2)) <syntax> (##core#module x () (import (rename scheme (lambda fn))) ((fn (x) (+ x x)) 2)) <syntax> (import (rename scheme (lambda fn))) <syntax> (##core#undefined) <syntax> ((fn (x) (+ x x)) 2) <syntax> (fn (x) (+ x x)) <syntax> (x) <syntax> (+ x x) <--

#;1>