Вот библиотека, которая экспортирует хеш-таблицу.Библиотека также содержит выражения, которые заполняют хеш-таблицу:
(library (abc-1)
(export tbl)
(import (rnrs))
(define tbl (make-eq-hashtable))
(hashtable-set! tbl 'a 10)
(hashtable-set! tbl 'b 20)
(hashtable-set! tbl 'c 30))
Вот еще одна версия библиотеки, которая экспортирует процедуру, которая может использоваться для заполнения хеш-таблицы:
(library (abc-2)
(export tbl init-tbl)
(import (rnrs))
(define tbl (make-eq-hashtable))
(define (init-tbl)
(hashtable-set! tbl 'a 10)
(hashtable-set! tbl 'b 20)
(hashtable-set! tbl 'c 30)))
Считается ли онаплохая форма, чтобы принять первый подход?Т.е. иметь библиотеку, которая также выполняет произвольные выражения?Есть ли недостатки этого подхода?
Связанная проблема ... В библиотеке выражения без определения должны появляться после определений.Чтобы обойти это ограничение, я использую этот макрос:
(define-syntax no-op-def
(syntax-rules ()
((_ expr ...)
(define no-op
(begin
expr
...)))))
, например:
(define t0 (make-eq-hashtable))
(no-op-def
(hashtable-set! t0 'a 10))
(define t1 (make-eq-hashtable))
(no-op-def
(hashtable-set! t1 'b 20))
Опять-таки, есть ли недостатки у разбрасывания выражений и определений с помощью этого обходного пути?*