jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed module technique from <module_name>- to <module_name>: which

Browse source 
conforms with chicken "egg" standard.  Got rid of ##csi#run for
relinking the Scheme interpreter as no longer needed.  Changed all
documentation to reflect both changes.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4411 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Jonah Beckford 2003-02-27 02:00:15 +00:00
commit 3def239916
20 changed files with 681 additions and 682 deletions
Download patch file Download diff file Expand all files Collapse all files

10
SWIG/Examples/chicken/simple/precsi.scm
View file

@ -17,9 +17,9 @@
(display "\n")
(display "Scheme Procedures:\n")
(display " (example-My-variable) or (example-My-variable %x)\n");
(display " (example-fact %n)\n")
(display " (example-mod %n %m)\n")
(display " (example-my-mod %n %m)\n")
(display " (example-get-time)\n")
(display " (example:My-variable) or (example:My-variable %x)\n");
(display " (example:fact %n)\n")
(display " (example:mod %n %m)\n")
(display " (example:my-mod %n %m)\n")
(display " (example:get-time)\n")
(display "\n")

40
SWIG/Examples/chicken/simple/test-simple.scm
View file

@ -1,43 +1,43 @@
;; run with './simple test-simple.scm'
;; feel free to uncomment and comment sections
(display "(example-My-variable): ")
(display (example-My-variable))
(display "(example:My-variable): ")
(display (example:My-variable))
(display "\n")
(display "(example-My-variable 3.141259): ")
(display (example-My-variable 3.141259))
(display "(example:My-variable 3.141259): ")
(display (example:My-variable 3.141259))
(display "\n")
(display "(example-My-variable): ")
(display (example-My-variable))
(display "(example:My-variable): ")
(display (example:My-variable))
(display "\n")
(display "(example-My-variable 'a): ")
;;(display (example-My-variable 'a))
(display "(example:My-variable 'a): ")
;;(display (example:My-variable 'a))
(display "\n")
(display "(example-My-variable 1.5 'b): ")
(display (example-My-variable 1.5 'b))
(display "(example:My-variable 1.5 'b): ")
(display (example:My-variable 1.5 'b))
(display "\n")
(display "(example-fact 5): ")
(display (example-fact 5))
(display "(example:fact 5): ")
(display (example:fact 5))
(display "\n")
(display "(example-fact 'a): ")
;;(display (example-fact 'a))
(display "(example:fact 'a): ")
;;(display (example:fact 'a))
(display "\n")
(display "(example-mod 75 7): ")
(display (example-mod 75 7))
(display "(example:mod 75 7): ")
(display (example:mod 75 7))
(display "\n")
(display "(example-my-mod 75 7): ")
(display (example-my-mod 75 7))
(display "(example:my-mod 75 7): ")
(display (example:my-mod 75 7))
(display "\n")
(display "(example-get-time): ")
(display (example-get-time))
(display "(example:get-time): ")
(display (example:get-time))
(display "\n")