Posts tagged ‘scheme blog’

A New Beginning

16th April 2008, 03:12 am

Didn’t feel like working this afternoon, so instead, I updated my blog software to WordPress 2.5.

Here’s some Scheme code for all of you fans out there:

(define-record-type keystroke
  (%make-keystroke %value %meta?)


  keystroke?
  (%value char-value)
  (%meta? meta?))

(define-record-discloser keystroke
  (lambda (k)
    `(


 Keystroke ,(keystroke->sexpr k) ,(keystroke-hash k) )))

(define
  

  (parse-key form)
  (if (list? form)
      (let ((tag (car  form))


            (val (cadr form)))
        (case tag
          ((


 control) (


 %control  (parse-key val)))
          ((meta)    (


 %meta     (parse-key val)))
          ((key)


      (%key     val))
          (


 else


       (error "This is not a valid key form " tag))))
      (%key form)))
Tags:
Category: School, Thoughts  |  Comment