From f1ea32927579bc9a1ee21bfd368cfcf99c44d58e Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 2 May 2021 05:08:29 +0100
Subject: dead code

---
 init.org | 40 ----------------------------------------
 1 file changed, 40 deletions(-)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 167fc00..7ff1217 100644
--- a/init.org
+++ b/init.org
@@ -2470,46 +2470,6 @@
         :diminish ((cider-macroexpansion-mode . " µ")))
 
     #+END_SRC
-*** Scheme
-    #+BEGIN_SRC emacs-lisp
-      ;;; racket
-      (defun jao-racket-help (file)
-        (apply jao-browse-url-function (url-unhex-string file)))
-
-      ;;; safe variables
-      (put 'package 'safe-local-variable 'symbolp)
-      (put 'Package 'safe-local-variable 'symbolp)
-      (put 'syntax 'safe-local-variable 'symbolp)
-      (put 'Syntax 'safe-local-variable 'symbolp)
-      (put 'Base 'safe-local-variable 'integerp)
-      (put 'base 'safe-local-variable 'integerp)
-
-      ;;;; guile test suite keywords
-      (put 'with-test-prefix 'scheme-indent-function 1)
-      (put 'expect-fail       'scheme-indent-function 1)
-      (put 'pass-if           'scheme-indent-function 1)
-      (put 'pass-if-exception 'scheme-indent-function 2)
-      ;;;; testeez
-      (put 'test-true 'scheme-indent-function 1)
-      (put 'test-false 'scheme-indent-function 1)
-      (put 'test-define 'scheme-indent-function 2)
-      (put 'test/equal 'scheme-indent-function 1)
-      (put 'test/eq 'scheme-indent-function 1)
-      (put 'test/eqv 'scheme-indent-function 1)
-      (put 'testeez 'scheme-indent-function 1)
-      ;;;; scsh test utilities
-      (put 'add-test! 'scheme-indent-function 2)
-      ;;;; schemeunit
-      (put 'test-case 'scheme-indent-function 1)
-      (put 'test-suite 'scheme-indent-function 1)
-      (put 'test-eq? 'scheme-indent-function 1)
-      (put 'test-eqv? 'scheme-indent-function 1)
-      (put 'test-equal? 'scheme-indent-function 1)
-      ;;;; more
-      (put 'lambda* 'scheme-indent-function 1)
-      (put 'with-current-directory 'scheme-indent-function 1)
-      (put 'with-working-directory 'scheme-indent-function 1)
-    #+END_SRC
 *** Geiser
     #+begin_src emacs-lisp
       (defun jao-org--set-geiser-impl () (setq-local geiser-repl--impl 'guile))
-- 
cgit v1.2.3