-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathsoosy.ss
32 lines (29 loc) · 952 Bytes
/
soosy.ss
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(module soosy scheme
(require (lib "1.ss" "srfi")
(lib "9.ss" "srfi")
(rename-in (lib "13.ss" "srfi") (string-hash s:string-hash))
(lib "14.ss" "srfi")
(lib "23.ss" "srfi")
(lib "28.ss" "srfi")
(lib "69.ss" "srfi"))
(include "macros.scm")
(include "xform.scm")
(include "helpers.scm")
(include "class.scm")
(provide define-class
define-method
with-instance-variables
==>
usual==>
make-class make-object
object-class object-variables object-methods object-method
object-variable set-object-variable!
send send-usual
class? object? object-of-class? base-class? subclass?
class-name class-superclass class-subclasses class-methods
class-method-define class-variables))
;;
;; Local Variables:
;; eval: (put 'module 'scheme-indent-function 2)
;; End:
;;