Changeset 14354 in project


Ignore:
Timestamp:
04/22/09 20:54:26 (11 years ago)
Author:
certainty
Message:

removed superflous syntax. was a duplicate

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/dict/trunk/dict.scm

    r14353 r14354  
    88;; Version: $Id$
    99;; Version:
    10 ;; Last-Updated: Mi Apr 22 20:39:41 2009 (CEST)
     10;; Last-Updated: Mi Apr 22 20:58:18 2009 (CEST)
    1111;;           By: David Krentzlin <david@lisp-unleashed.de>
    12 ;;     Update #: 438
     12;;     Update #: 439
    1313;; URL:
    1414;; Keywords:
     
    205205  (define +crlf+ "\r\n")
    206206
    207   ;;used internally only
    208   (define-syntax define-cmd
    209     (lambda (exp rename compare)
    210       (let* ((cmd (cadr exp))
    211              (%define (rename 'define))
    212              (cmd-symbol (string->symbol (conc "+cmd:" (string-translate* (string-downcase cmd) '((" " . "-"))) "+"))))
    213         `(,%define ,cmd-symbol ,(string-upcase cmd)))))
    214 
     207 
    215208  (define-cmd "quit")
    216209  (define-cmd "client")
Note: See TracChangeset for help on using the changeset viewer.