~ubuntu-branches/ubuntu/edgy/swig1.3/edgy

« back to all changes in this revision

Viewing changes to Examples/test-suite/chicken/li_typemaps_runme.ss

• browse files at revision 6
• compare with another revision
• download diff
• download tarball
• view history from revision 6

Show diffs side-by-side

added

removed

Examples/test-suite/chicken/li_typemaps_runme.ss

 

1

(require 'li_typemaps)

 

2

(load "../schemerunme/li_typemaps.scm")

 

3

 

 

4

(call-with-values (lambda () (inoutr-int2 3 -2))

 

5

                  (lambda (a b)

 

6

                    (if (not (and (= a 3) (= b -2)))

 

7

                      (error "Error in inoutr-int2"))))

 

8

(call-with-values (lambda () (out-foo 4))

 

9

                  (lambda (a b)

 

10

                    (if (not (and (= (Foo-a-get a) 4) (= b 8)))

 

11

                      (error "Error in out-foo"))))

 

12

(exit 0)

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1