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/plt/geiser/utils.rkt | 27 --------------------------- 1 file changed, 27 deletions(-) delete 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 deleted file mode 100644 index f6c739c..0000000 --- a/scheme/plt/geiser/utils.rkt +++ /dev/null @@ -1,27 +0,0 @@ -;;; 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 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.rkt ends here -- cgit v1.2.3