diff options
author | Ludovic Courtes | 2006-02-10 17:19:34 +0000 |
---|---|---|
committer | Ludovic Courtes | 2006-02-10 17:19:34 +0000 |
commit | 5a05a0fe9bfc54af7cb455f2b8350984b075ece0 (patch) | |
tree | 32c5b51e64f31017175d6b6671e2ce0e1341bade /src/guile/skribilo/prog.scm | |
parent | 3f8ada7ffc0981ef7530ff34220beb622f01fabf (diff) | |
download | skribilo-5a05a0fe9bfc54af7cb455f2b8350984b075ece0.tar.gz skribilo-5a05a0fe9bfc54af7cb455f2b8350984b075ece0.tar.lz skribilo-5a05a0fe9bfc54af7cb455f2b8350984b075ece0.zip |
Fixed syntax highlighting thanks to SILex.
* arch-config: New file.
* src/guile/skribilo/coloring/c-lex.l.scm: New.
* src/guile/skribilo/coloring/lisp-lex.l.scm: New.
* src/guile/skribilo/coloring/xml-lex.l.scm: New.
* doc/user/user.skb: Include `prgm.skb' (works now).
* src/guile/skribilo/ast.scm: Export `node-body'.
* src/guile/skribilo/coloring/Makefile.am (dist_guilemodule_DATA): Added
the SILex-generated files.
(%.l.scm): New rule.
* src/guile/skribilo/coloring/lisp-lex.l: Use the SRFI-39 parameters.
* src/guile/skribilo/coloring/lisp.scm: Use SRFI-39 parameters instead of
fluids. Load `lisp-lex.l.scm'.
* src/guile/skribilo/prog.scm: Autoload `ast' upon `node-body' too.
(make-line-mark): Use `hash-set!'.
(resolve-line): Use `hash-ref'.
* src/guile/skribilo/source.scm (source-read-lines): Use
`string-prefix-length' instead of `substring=?'.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-33
Diffstat (limited to 'src/guile/skribilo/prog.scm')
-rw-r--r-- | src/guile/skribilo/prog.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/guile/skribilo/prog.scm b/src/guile/skribilo/prog.scm index 020a275..87b964b 100644 --- a/src/guile/skribilo/prog.scm +++ b/src/guile/skribilo/prog.scm @@ -23,7 +23,7 @@ :use-module (ice-9 regex) :autoload (ice-9 receive) (receive) :use-module (skribilo lib) ;; `new' - :autoload (skribilo ast) (node?) + :autoload (skribilo ast) (node? node-body) :export (make-prog-body resolve-line)) ;;; ====================================================================== @@ -57,14 +57,14 @@ (define (make-line-mark m lnum b) (let* ((ls (number->string lnum)) (n (list (mark ls) b))) - (hashtable-put! *lines* m n) + (hash-set! *lines* m n) n)) ;*---------------------------------------------------------------------*/ ;* resolve-line ... */ ;*---------------------------------------------------------------------*/ (define (resolve-line id) - (hashtable-get *lines* id)) + (hash-ref *lines* id)) ;*---------------------------------------------------------------------*/ ;* extract-string-mark ... */ |