diff options
| -rw-r--r-- | elisp/geiser-doc.el | 1 | ||||
| -rw-r--r-- | scheme/racket/geiser/modules.rkt | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index 04bea85..bd84d7e 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -378,6 +378,7 @@ With prefix, the current page is deleted from history." (interactive) (kill-all-local-variables) (buffer-disable-undo) + (setq truncate-lines t) (use-local-map geiser-doc-mode-map) (set-syntax-table scheme-mode-syntax-table) (setq mode-name "Geiser Doc") 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))))) |