conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Removed ALIASES-related stuff. We're in the XXIst century, dudes. 

git-svn-id: svn://svn.zoy.org/elk/trunk@95 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-04 15:42:28 +00:00
parent 0eedb9a8b7
commit 43ae443a4b
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/xwidgets/mkwidget.scm
View File

@ -127,24 +127,11 @@
(check-string 'define-widget-class class 'class) (check-string 'define-widget-class class 'class)
(set! classes (cons (list name class sub-resources) classes))) (set! classes (cons (list name class sub-resources) classes)))
(define (filename-to-widget-name fn)
(let loop ((w widget-aliases))
(cond
((null? w)
fn)
((eq? (cdar w) fn)
(caar w))
(else
(loop (cdr w))))))
(define (feature-name fn) (define (feature-name fn)
(let ((i (substring? ".d" fn))) (let ((i (substring? ".d" fn)))
(if (not i) (if (not i)
(error 'mkwidget "bad filename suffix in ~a (expected .d)" fn)) (error 'mkwidget "bad filename suffix in ~a (expected .d)" fn))
(filename-to-widget-name (string->symbol (substring fn 0 i))))) (string->symbol (substring fn 0 i))))
(define widget-aliases)
(load 'ALIASES)
(define args (command-line-args)) (define args (command-line-args))
(if (not (= (length args) 3)) (if (not (= (length args) 3))