From 43ae443a4b60ebdd52ed4383c9014fdd64c29f9a Mon Sep 17 00:00:00 2001 From: sam Date: Thu, 4 Sep 2003 15:42:28 +0000 Subject: [PATCH] * 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 --- lib/xwidgets/mkwidget.scm | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) diff --git a/lib/xwidgets/mkwidget.scm b/lib/xwidgets/mkwidget.scm index 7f3e5ec..1d0e797 100644 --- a/lib/xwidgets/mkwidget.scm +++ b/lib/xwidgets/mkwidget.scm @@ -127,24 +127,11 @@ (check-string 'define-widget-class class 'class) (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) (let ((i (substring? ".d" fn))) (if (not i) (error 'mkwidget "bad filename suffix in ~a (expected .d)" fn)) - (filename-to-widget-name (string->symbol (substring fn 0 i))))) - -(define widget-aliases) -(load 'ALIASES) + (string->symbol (substring fn 0 i)))) (define args (command-line-args)) (if (not (= (length args) 3))