From 2d30daecad657d692a7f3cb66deb496630362600 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 24 May 2010 00:03:30 +0200 Subject: Racket: PLT implementation renamed to Racket. --- scheme/racket/geiser/utils.rkt | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 scheme/racket/geiser/utils.rkt (limited to 'scheme/racket/geiser/utils.rkt') diff --git a/scheme/racket/geiser/utils.rkt b/scheme/racket/geiser/utils.rkt new file mode 100644 index 0000000..730a396 --- /dev/null +++ b/scheme/racket/geiser/utils.rkt @@ -0,0 +1,27 @@ +;;; utils.rkt -- generic utilities + +;; Copyright (C) 2009, 2010 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 racket + +(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.rkt ends here -- cgit v1.2.3