diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-07-24 01:30:09 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-07-24 01:30:09 +0200 |
| commit | 0fcf4491f889e24853d6b6643b773d0b4e5e7346 (patch) | |
| tree | a614421c11135175d4db5a0d313e632a02d8e745 /scheme/racket/geiser | |
| parent | d2cb7333992ba6c523814f1de8e714e345a50475 (diff) | |
| download | geiser-guile-0fcf4491f889e24853d6b6643b773d0b4e5e7346.tar.gz geiser-guile-0fcf4491f889e24853d6b6643b773d0b4e5e7346.tar.bz2 | |
Truncating lines in documentation browser.
Diffstat (limited to 'scheme/racket/geiser')
| -rw-r--r-- | scheme/racket/geiser/modules.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/racket/geiser/modules.rkt b/scheme/racket/geiser/modules.rkt index 6ed2ecc..af19b03 100644 --- a/scheme/racket/geiser/modules.rkt +++ b/scheme/racket/geiser/modules.rkt @@ -156,9 +156,9 @@ [(procedure? (value (car ids))) (loop (cdr ids) (cons (car ids) procs) vars)] [else (loop (cdr ids) procs (cons (car ids) vars))]))) - (let-values (((reg syn) + (let-values ([(reg syn) (module-compiled-exports - (get-module-code (resolve-module-path mod #f))))) + (get-module-code (resolve-module-path mod #f)))]) (let ([syn (map contracted (extract-ids syn))] [reg (extract-ids reg)]) `((syntax ,@syn) ,@(classify-ids reg))))) |