File: theme-d-var-names.scm

package info (click to toggle)
theme-d 1.4.0-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 12,784 kB
  • sloc: lisp: 47,684; sh: 4,200; makefile: 455; ansic: 319
file content (16 lines) | stat: -rw-r--r-- 410 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
;; Copyright (C) 2018 Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.


;; *** Handling variable names ***


(define gl-ht-var-orig-names '())


(define (get-var-orig-name s-new-name)
  (if (not-null? gl-ht-var-orig-names)
      (let ((s-orig-name (hashq-ref gl-ht-var-orig-names s-new-name)))
	(if s-orig-name s-orig-name s-new-name))
      s-new-name))