@@ -35,3 +35,18 @@ (define (string-starts-with? str prefix) (string-range-equal? str 0 prefix 0 (string-length prefix))) + + +;;; Symbol tables + +(define (make-symboltable) + (make-hashtable (function symbol-id) (function eq?))) + +(defmarco (symboltable-ref st sym) (list 'hashtable-ref st sym)) +(defmarco (symboltable-set! st sym val) (list 'hashtable-set! st sym val)) + +(define (symboltable-list-ref l sym) + (let* ((res (symboltable-ref (car l) sym))) + (or res (let* ((parent (cdr l))) + (and (not (null? parent)) + (symboltable-list-ref parent sym)))))) language/util.pco 7286bfe79df7cafa6aa92e8ee5161b51849c0d00 David Wragg david@wragg.org http://github.com/dpw/pachuco/commit/85f30384bdd59b1f5e4ec1966ca7ee722e2092bb 85f30384bdd59b1f5e4ec1966ca7ee722e2092bb 2008-11-08T16:33:01-08:00 2008-11-08T16:33:01-08:00 Generic symboltable support 5c9e607210333a5a528caaf0256fa2a45457649c David Wragg david@wragg.org