diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-09 00:26:06 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-09 00:26:06 +0200 |
| commit | 13e59e0771f55d3633efe5b30c88fcb70b0471ff (patch) | |
| tree | ae6359061d19c9a5cd5fc10ce465f36fb97328bb /modules/oop | |
| parent | d86f188b6703fd4f150ad106a85d5be15c4d2117 (diff) | |
yield now works
Diffstat (limited to 'modules/oop')
| -rw-r--r-- | modules/oop/pf-objects.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index 44674fb..9101415 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -1,7 +1,8 @@ (define-module (oop pf-objects) #:use-module (oop goops) #:use-module (ice-9 vlist) - #:export (set ref make-pf <pf> call with copy fset fcall make-p put put! + #:export (set ref make-pf <p> <py> <pf> <pyf> + call with copy fset fcall make-p put put! pcall pcall! get next mk def-pf-class mk-pf-class make-pf-class @@ -554,7 +555,7 @@ explicitly tell it to not update etc. it (error "not a class"))) -(define StopIteration (list 'StopIteration)) +(define StopIteration 'StopIteration) (define-method (next (o <p>)) (catch StopIteration (lambda () ((ref o '__next__))) |