Permalink
Browse files

improve lib load

  • Loading branch information...
1 parent 055634e commit cdf3c018d1de4f0397c5bedc07ec7e7c2c2f6227 @cpylua committed Apr 19, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 lib/core.scm
View
@@ -6,9 +6,10 @@
;
-(define *DATA_TOP* "/usr/share/asc/")
-(define (reload-core)
- (load (string-append *DATA_TOP* "lib/core.scm")))
+(define *DATA-TOP* "/usr/share/asc/")
+
+(define (load-lib lib)
+ (load (string-append *DATA-TOP* "lib/" lib ".scm")))
; number functions
(define (number? x)

0 comments on commit cdf3c01

Please sign in to comment.