"leppie" wrote:
>> (define (quote-if-predefined-type arg)
>> (if (memq arg list-of-types)
>> `(quote ,arg)
>> arg))
>>
>
> That needs to be #`(quote #,arg) .
If you mean that the function must be:
(define (quote-if-predefined-type arg)
(if (memq arg list-of-types)
(quasisyntax (quote (unsyntax arg)))
arg))
again, Ypsilon works but Ikarus gives me this error:
Unhandled exception:
Condition components:
1. &message: "invalid syntax"
2. &syntax:
form: (#<syntax quote [char 2780 of
../../uriel/libraries//uriel/ffi/main.sls]> void . #<syntax ()>)
subform: #f
3. &trace: #<syntax (#<syntax quote [char 2780 of
../../uriel/libraries//uriel/ffi/main.sls]> void . #<syntax ()>)>
4. &trace: #<syntax (define-c-function mpf_abs (void __gmpf_abs (mpf_ptr
mpf_srcptr))) [char 2122 of ../libraries/mp/mpf.sls]>
--
Marco Maggi
