scheme/racket/geiser/utils.rkt

   1 ;;; utils.rkt -- generic utilities
   2
   3 ;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
   4
   5 ;; This program is free software; you can redistribute it and/or
   6 ;; modify it under the terms of the Modified BSD License. You should
   7 ;; have received a copy of the license along with this program. If
   8 ;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
   9
  10 ;; Start date: Sun May 03, 2009 03:09
  11
  12 #lang racket
  13
  14 (provide pair->list
  15          keyword->symbol
  16          symbol->keyword)
  17
  18 (require racket/mpair)
  19
  20 (define (pair->list pair)
  21   (let loop ([d pair] [s '()])
  22     (cond [(null? d) (reverse s)]
  23           [(symbol? d) (reverse (cons d s))]
  24           [else (loop (cdr d) (cons (car d) s))])))
  25
  26 (define keyword->symbol (compose string->symbol keyword->string))
  27 (define (symbol->keyword sym) (string->keyword (format "~a" sym)))