diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-09-12 19:48:03 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-09-12 19:48:03 +0200 |
| commit | 37e74d5ff3ea8023db23fcd7edd33af5cbda4687 (patch) | |
| tree | 98b8dbb727c0a7ce349e93fbe1617832ddad18e3 /modules/language/python/module.scm | |
| parent | 11bcce56c7a6b57f86b7086461f8f71c78c910ff (diff) | |
xml dom etree
Diffstat (limited to 'modules/language/python/module.scm')
| -rw-r--r-- | modules/language/python/module.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/modules/language/python/module.scm b/modules/language/python/module.scm index eff20f0..49a4366 100644 --- a/modules/language/python/module.scm +++ b/modules/language/python/module.scm @@ -54,7 +54,9 @@ (lambda (self id pre l nm skip-error?) (if id (aif it (rawref self id) - ((ref it '__init__) pre l nm) + (begin + ((ref it '__init__) pre l nm)) + (begin (rawset self id (Module pre l nm)) (_make self pre nm skip-error?))) @@ -64,8 +66,10 @@ (begin ((rawref it '__init__) pre l nm) it) - (_make self pre nm skip-error?)) - (_make self pre nm skip-error?))))) + (begin + (_make self pre nm skip-error?))) + (begin + (_make self pre nm skip-error?)))))) (define _contupdate (lambda (self id pre l nm) |