dotfiles/.guile


1
2
3
4
5
6
7
8
9
10
11
12
13

;; -*- scheme -*-

(false-if-exception
 (begin
   (use-modules (ice-9 readline))
   (activate-readline)))

(define-syntax-rule (push! var x)
  (set! var (cons x var)))

(define (add-to-load-path* dir)
  (push! %load-path dir)
  (push! %load-compiled-path dir))