Browse Source

use memf not memv

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

3
api.rkt

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

3
commit.rkt

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