File: multivalue.scm

package info (click to toggle)
swig1.3 1.3.24-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 19,336 kB
  • ctags: 10,604
  • sloc: cpp: 27,917; ansic: 24,160; yacc: 4,412; python: 4,255; java: 4,156; makefile: 3,735; sh: 3,552; cs: 2,250; ruby: 2,150; lisp: 1,605; tcl: 1,136; perl: 980; php: 879; ml: 825
file content (19 lines) | stat: -rw-r--r-- 459 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
;;;; Automatic test of multiple return values

(let ((quotient/remainder (divide-l 37 5)))
  (if (not (equal? quotient/remainder '(7 2)))
      (exit 1)))

(let ((quotient-remainder-vector (divide-v 41 7)))
  (if (not (equal? quotient-remainder-vector #(5 6)))
      (exit 1)))

(call-with-values (lambda ()
		    (divide-mv 91 13))
		  (lambda (quotient remainder)
		    (if (not (and (= quotient 7)
				  (= remainder 0)))
			(exit 1))))

(exit 0)