OSDN Git Service

[UPDATE] add invoke->call example
authormzp <mzpppp@gmail.com>
Sun, 2 Nov 2008 10:48:25 +0000 (19:48 +0900)
committermzp <mzpppp@gmail.com>
Sun, 2 Nov 2008 10:48:25 +0000 (19:48 +0900)
example/class.scm

index 1963924..6210a36 100644 (file)
@@ -3,6 +3,7 @@
 ;;; 12
 ;;; [object Foo]
 ;;; 10
+;;; 10
 ;;; [object Foo]
 
 
@@ -22,4 +23,5 @@
 (define foo (new Foo 42))
 (print foo)
 (. foo (f 10))
+(f foo 10)
 (. foo (g))
\ No newline at end of file