Failed R6RS conformance tests (was:unsyntax and friends)

[leppie]

From the R6RS test suite:

(test (unwrap
       #`(1 2 (unsyntax 3 4 5) 6))
      '(1 2 3 4 5 6))
(test (unwrap
       #`(1 2 (unsyntax-splicing '(3 4) '(5)) 6))
      '(1 2 3 4 5 6))

(test (unwrap
       #`#(1 2 (unsyntax-splicing '(3 4) '(5)) 6))
      '#(1 2 3 4 5 6))
(test (unwrap
       #`(1 #`(#,(+ 3 4) #,#,(+ 1 1))))
      '(1 #`(#,(+ 3 4) #,2)))

These all fail. The equivalent unquote/splicing works correctly.

This seems to be the only issue with psyntax with the R6RS test suite :-)

Cheers

leppie

[leppie (leppie)]

These should be easy:
$ ikarus --r6rs-script tests/r6rs/run/arithmetic/flonums.sps
Running tests for (rnrs arithmetic flonums)
8 tests failed:

Expression:
 (fllog -inf.0)
Result:
 #[err #[compound-condition (#[&assertion] #[&who fllog] #[&message "argument should not be negative"] #[&irritants (-inf.0)])]]
Expected:
 +nan.0

Expression:
 (approx (fllog 1024.0 2.0))
Result:
 #[err #[compound-condition (#[&assertion] #[&who apply] #[&message "incorrect number of arguments"] #[&irritants (#<procedure fllog> 2)])]]
Expected:
 1e4

Expression:
 (approx (flatan 0.0 1.0))
Result:
 #[err #[compound-condition (#[&assertion] #[&who apply] #[&message "incorrect number of arguments"] #[&irritants (#<procedure flatan> 2)])]]
Expected:
 0.0

... and the same follows

Cheers

leppie

[Abdulaziz Ghuloum (aghuloum)]

quasisyntax bugs fixed in revision 1557.