Custom Query (1631 matches)

The following simple module:

(module foo (foo)

(import scheme) (define (foo)

(let ((qux 3))

(let-syntax ((bar (syntax-rules () ((bar) qux))))

(bar)))))

fails to compile with the following error:

Warning: reference to possibly unbound identifier: qux10

Error: module unresolved: foo

Call history:

<syntax> (begin35 (##sys#syntax-error-hook "no rule matches form" input17)) <syntax> (##sys#syntax-error-hook "no rule matches form" input17) <syntax> (##sys#cdr input17) <syntax> (begin45 (bar)) <syntax> (bar) <eval> (##sys#cdr input17) <eval> (##sys#eq? tail27 (quote ())) <eval> (rename26 (syntax qux)) <--

However the same code loads and evalutes fine in the interpreter.

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.