diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-05-23 23:10:52 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-05-23 23:10:52 +0200 |
| commit | 94f76a1565f09d189d9f2cef6d3df7860321709e (patch) | |
| tree | 766fd38a46c3cd5dd4835ec73f57598d698466cf /scheme/plt/geiser/utils.ss | |
| parent | acceb169d10e6096124a79b57d1c7e2dc447d37d (diff) | |
| download | geiser-chez-94f76a1565f09d189d9f2cef6d3df7860321709e.tar.gz geiser-chez-94f76a1565f09d189d9f2cef6d3df7860321709e.tar.bz2 | |
Racket support (PLT 5 needed).
Diffstat (limited to 'scheme/plt/geiser/utils.ss')
| -rw-r--r-- | scheme/plt/geiser/utils.ss | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/scheme/plt/geiser/utils.ss b/scheme/plt/geiser/utils.ss deleted file mode 100644 index ff8e695..0000000 --- a/scheme/plt/geiser/utils.ss +++ /dev/null @@ -1,27 +0,0 @@ -;;; utils.ss -- generic utilities - -;; Copyright (C) 2009 Jose Antonio Ortega Ruiz - -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the Modified BSD License. You should -;; have received a copy of the license along with this program. If -;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>. - -;; Start date: Sun May 03, 2009 03:09 - -#lang scheme - -(provide pair->list - keyword->symbol - symbol->keyword) - -(define (pair->list pair) - (let loop ((d pair) (s '())) - (cond ((null? d) (reverse s)) - ((symbol? d) (reverse (cons d s))) - (else (loop (cdr d) (cons (car d) s)))))) - -(define keyword->symbol (compose string->symbol keyword->string)) -(define (symbol->keyword sym) (string->keyword (format "~a" sym))) - -;;; utils.ss ends here |