Changeset 34938 in project for release/4/srfi-27/OO-example.scm

Timestamp:

12/17/17 02:30:01 (3 years ago)

Author:

Kon Lovett

Message:

updt ex ; has a name don' it

File:

• release/4/srfi-27/OO-example.scm (modified) (4 diffs)

release/4/srfi-27/OO-example.scm

@@ -5 +5 @@
 (define-class <named> () (
   (namsym reader: name) ) )
+(define-method (name (obj <named>))
+  (slot-value obj 'namsym))
 
 ;; Parameterized extension "concept"
@@ -79 +81 @@
 
 #|
-(use test)
-
 (let ((expn-rd (make-random-distribution make-random-exponentials mu: 0.5)))
+  (use test)
   (test <random-distribution> (class-of expn-rd))
   (test-assert (number? (next-value expn-rd)))
@@ -88 +89 @@
 
 #|
-;; Use it
+(define expn-rd (make-random-distribution make-random-exponentials mu: 0.5))
 (use coops-extras)
-
-(define expn-rd (make-random-distribution make-random-exponentials mu: 0.5))
 (describe-object expn-rd)
-;coops instance of class `<random-distribution>':
+;#> coops instance of class `<random-distribution>':
 ;tmpval: #f
 ;namsym: exponentials
@@ -101 +100 @@
 ;nxtval: #<procedure (f_1191)>
 
-(next-value expn-rd) ;=> ...
+(next-value expn-rd) ;#> 0.#...
 |#