Browse Source

use memf not memv

master
wjak56@gmail.com 10 years ago
parent
commit
ee0998893f
  1. 3
      api.rkt
  2. 3
      commit.rkt

3
api.rkt

@ -28,7 +28,7 @@
(define (valid-key? key) (define (valid-key? key)
; Check if a key is in the list of valid ones ; Check if a key is in the list of valid ones
(memv (memf
(curry equal? key) (curry equal? key)
valid-config-keys)) valid-config-keys))
@ -45,6 +45,7 @@
(match (map string-trim (match (map string-trim
(string-split line "=")) (string-split line "="))
[(list key val) [(list key val)
(displayln (format "~a - ~a" key val))
(cond (cond
[(valid-key? key) (hash-set! config (string->symbol key) val)] [(valid-key? key) (hash-set! config (string->symbol key) val)]
[else [else

3
commit.rkt

@ -0,0 +1,3 @@
#lang racket
(require "api.rkt")
Loading…
Cancel
Save