Welcome to the CHICKEN Scheme pasting service

Failure on Android ARM64/aarch64 added by alexshendi on Sun Apr 17 20:11:26 2016

(define (foo1 x1 #!optional x2 x3 x4)
  (list x1 x2 x3 x4))

(define (foo2 x1 x2 #!optional x3 x4)
  (list x1 x2 x3 x4))

(define (foo2a x1 x2 #!optional (x3 -3) (x4 -4))
  (list x1 x2 x3 x4))

(define (test)
  (equal? '(1  2  -3  -4) (foo2a 1 2)))

(display (foo2a 1 2)) ;; --> (1 2 -3 -4)
(newline)
(display (test)) ;; --> #f
(newline)
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which egg provides `string-pad-right'?
Visually impaired? Let me spell it for you (wav file) download WAV