From 94f76a1565f09d189d9f2cef6d3df7860321709e Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 23 May 2010 23:10:52 +0200 Subject: Racket support (PLT 5 needed). --- scheme/plt/geiser/utils.rkt | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 scheme/plt/geiser/utils.rkt (limited to 'scheme/plt/geiser/utils.rkt') diff --git a/scheme/plt/geiser/utils.rkt b/scheme/plt/geiser/utils.rkt new file mode 100644 index 0000000..ff8e695 --- /dev/null +++ b/scheme/plt/geiser/utils.rkt @@ -0,0 +1,27 @@ +;;; 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 . + +;; 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 -- cgit v1.2.3