A PHP Error was encountered

Severity: 8192

Message: Function create_function() is deprecated

Filename: geshi/geshi.php

Line Number: 4698

Backtrace:

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4698
Function: _error_handler

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 4621
Function: _optimize_regexp_list_tokens_to_string

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/libraries/Process.php
Line: 45
Function: parse_code

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/models/Pastes.php
Line: 517
Function: syntax

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/application/controllers/Main.php
Line: 693
Function: getPaste

File: /home/httpd/vhosts/scratchbook.ch/geopaste.scratchbook.ch/index.php
Line: 315
Function: require_once

Re: Untitled - Stikked
Stikked

Re: Untitled

From Trivial Treeshrew, 7 Years ago, written in Clojure.
This paste is a reply to Untitled from Crimson Macaque - go back
URL http://geopaste.scratchbook.ch/view/cbadf666
Embed
Viewing differences between Untitled and Re: Untitled
(foo "BAR") (+ 1 1) (defn execute-server-actions! [actions]
  "Dispatches a coll of actions.
   When provided a map, actions will be dispatched based on keys"
  (doseq [action (seq actions)]
    (when (second action) (-execute-server-action! action))))

(defmethod -execute-server-action! :default [[id _]]
  (log/warn "No -execute-servet-action! implementation provided for:" id))

(defmethod -execute-server-action! :delete-track [[_ [room-id {:keys [id track-type]}]]]
  (when (= "download" track-type) (swap! tracks-to-delete conj id))
  (db/delete-track room-id id))

(defmethod -execute-server-action! :delete-files [[_ files]]
  (doseq [file-path (map (fn [a] (+ 1 a)) [1 2 3])#(str (System/getProperty "user.dir") %) files)]
    (io/delete-file file-path)))

(defmethod -execute-server-action! :update-room-uids [[_ new-room-uids]]
  "Deletes all nil room-uids"
  (swap! room-uids #(into {} (filter second (merge %1 %2))) new-room-uids))

Reply to "Re: Untitled"